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AP13 und AP 17 AP 33 
RAM-Karten zum Einsatz als Pseu- RAMDISK der neuen Generation, 
dodisk unter CP/M, USCD und Für besonders speicherintensive 


Arbeiten ist der Ausbau in Stufen 
von 64 kByte bis 1MByte möglich, 
Bestell-Nr. A 1033 


APPLE-DOS. Speichergröße von 
64 kByte bis 256 kByte, 
Bestell-Nr.: A 1013 a-b 

A 1017 a-d 








AP 14 
Floppy-Controller für alle Anwen- 
dungsfälle. 10 Laufwerke können 
gleichzeitig angeschlossen werden. 
4 x 8” DSDD, 4 x 5%" DSDD und 


zwei Apple-Standardlaufwerke. 
Maximal ca. 10MByte im Direktzu- 
griff. 


Bestell-Nr.: A 1014 
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„en“ jetzt 512 K-RAM 





AP2O 

INTEMEX mit 68 000 CPU und 128 
k-RAM. Diese Karte macht aus Ihrem 
Rechner mit „Applebus” einen ech- 
ten 16 bit-Rechner. Eine Zusatzkarte 
(AP 26) ermöglicht einen Arbeitsspei- 
cher bis zu einem MByte und an Soft- 
ware gibt es einiges. 2.B. stehen drei 
Betriebssysteme und die wichtigsten 
Hochsprachen zur Verfügung. 
Bestell-Nr. A 1020 
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12-Kanal AD-DA-Wandler mit 12 bit 
Auflösung und 25 au sec Wandlungs- 
zeit. Bingangsspannung +10 V. Ein 
schneller Wandler für extrem 
schnelle Anwendungen, 
Bestell-Nr.: A 1019 
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AP22 

INTEMERX mit Z 80 B-CPU und 64 
k-RAM. Wenn Sie einmal diese Karte 
in Aktion gesehen haben, werden Sie 
auch feststellen: „Geschwindigkeit 
ist keine Hexerei, man braucht nur 
die AP 22”, Mit dieser Karte wird Ihr 
APPLE I zum 2.2. schnellsten GP/M- 
Computer, und in Verbindung mit 
dem SPACE 84 erhalten Sie Compu- 
terleistung, die wirklich einmalig ist. 
Wir vermitteln gerne eine Vorführung. 
Bestell-Nr. A 1022 


Das Interface-Buch von IBS, ein Buch für Alle, die Ihren APPLE U oder Kompatiblen 
optimalnutzen wollen. Detaillierte Schaltpläne, Bauteilelisten und Benutzungshinweise 
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zu allen IBS-Interfaces finden Sie jetztin einem Buch vereint. Ausführliche Abhandlun- 
gen über Spezialschaltungen, über Anwendungsmöglichkeiten, über neue Software- 
welten aber auch über die Grenzen des APPLE II-Systems bestimmen den Wert dieses 
Buches. 


Für nur DM 8,00 erhalten Sie dieses Buch. ab sofort bei Ihrem Computerfachhändler 
oder für DM 8,00 + DM 2,00 Versandkosten bei IBS COMPUTERVERTRIEB. 
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Der Kopierrecht-Aufsatz im letzten Peeker 
hat eine Fülle telefonischer Anfragen aus- 
gelöst. Insbesondere die 7/-Exemplar-Re- 
gelung war vielen Lesern neu. Ich darf hier 
nochmals Prof. Nordemann zitieren: „Es 
dürfen auch hier nur einzelne Kopien, Auf- 
nahmen usw. hergestellt werden... Das 
waren schon nach Ansicht der Bundesre- 
gierung etwa 6 bis 7 Exemplare (so die 
schriftliche Antwort des Bundesministers 
der Justiz vom 16. Juli 1968 auf eine klei- 
ne Anfrage). Aber es bedurfte erst einer 
bestätigenden höchstrichterlichen Ent- 
scheidung, um das Bundesland Bremen 
zur Beachtung des Gesetzes zu veranlas- 
sen“ („Urheberrecht“, 5. Aufl., S. 328). 
Das Ausnutzen von Gesetzeslücken mag 
zwar moralisch verpönt sein, wird jedoch 
allenthalben praktiziert. Beispielsweise 
sind ganze Armeen von Steuerberatern 
damit befaßt, unter Anwendung aller gera- 
de noch legalen Tricks auch die letzte 
Steuermark für ihre Klienten einzusparen. 
Das Urheberrechtsgesetz enthält bezüg- 
lich der „Computerwerke“ (= Software) 
jedoch mehr Lücken als sinnvoll anwend- 
bare Paragraphen, so daß man im Hand- 
umdrehen eine Fülle von Antinomien kon- 
struieren kann, von denen wir eine heraus- 
greifen wollen: 

Als der Gesetzgeber den 853 UrhG for- 
mulierte, dachte er nicht daran, daß von 
Betriebssystemen mehr als nur „einzel- 
ne” Vervielfältigungsstücke zum persönli- 
chen oder sonstigen eigenen Gebrauch 
benötigt werden könnten. Peeker-Leser, 
die beispielsweise unter DOS 3.3 arbeiten, 
haben mit Gewißheit schon mehr als 7 
Vervielfältigungsstücke von DOS 3.3 
durch „INIT HELLO® hergestellt. Wäre 
DOS 3.3 ein Urheberwerk, könnten wohl 
die meisten Apple-Besitzer wegen Verlet- 
zung von $53 als „Raubkopierer“ belangt 
werden. Zwar kann es nicht im Interesse 
einer Softwarefirma liegen, sich mit Tau- 
senden von Anzeigen zu befassen, weil 
sie dann letztlich ihre Kunden verlieren 
würde, doch möchte der Anwender nicht 


editorial 


in der ständigen Ungewißheit leben, daß 
seine Disketten, die neben dem Betriebs- 
system für ihn wichtige eigene Daten ent- 
halten (Briefe, Adressen, Meßwerte, La- 
gerbestände usw.), eines schönen Tages 
von der Polizei beschlagnahmt werden 

könnten. Wie kommt man aus diesem Di- 

lemma heraus”? Es bieten sich folgende 

Möglichkeiten an: 

1. Das Urheberrechtsgesetz wird dahin- 
gehend novelliert, daß von einem Be- 
triebssystem beliebig viele und nicht 
nur einzelne Vervielfältigungsstücke für 
den persönlichen (853) und sonstigen 
eigenen Gebrauch (854) hergestellt 
werden dürfen. 

2. Das jeweilige Systemhaus erklärt beim 
Verkauf eindeutig, ob von dem Be- 
triebssystem beliebig viele Vervielfälti- 
gungsstücke zum persönlichen oder 
sonstigen eigenen Gebrauch herge- 
stellt werden dürfen. Dann weiß jeder, 
ob er im Falle der Herstellung von mehr 
als 7 Kopien mit zivil- und strafrechtli- 
chen Konsequenzen rechnen muß. 

3. Durch eine kollektive Feststellungskla- 
ge einer möglichst großen Zahl von Mi- 
krocomputer-Besitzern wird die Besei- 
tigung dieser Rechtsunsicherheit auf 
dem Prozeßwege erzwungen. 

Zum Schluß noch ein Hinweis in eigener 

Sache: Das lange erwartete Hires-Grafik- 

Dump-Programm für den Imagewriter (s. 

Peeker, Heit 1/84) ist soeben fertiggestellt 

worden. Wir haben es deshalb bereits in 

die Sammeldisk #5 aufgenommen, ob- 
wohl es erst im nächsten Heft erläutert 
wird. Und noch eine „letzte Meldung“: 

Das MOUSE.ASS von Disk #4 muß mit 

Pascal 1.1 assembliert werden, weil der 

1.2-Assembler nicht mehr als 10 Prozedu- 

res verkraftet. 


Sun an 


Ulrich Stiehl 
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Das schon etwas antiquierte Betriebs- 
system DOS 3.3, das im August 1980 
erschien, ist trotz ProDOS auf dem be- 
sten Wege, noch zu Lebzeiten zur Le- 
gende zu werden. Obwohl die Firma 
Apple in ihrer Garagenzeit Akzente in 
der Transparenz von Computersyste- 
men gesetzt hatte, wurde die innere 
Struktur des DOS mit Ausnahme der 
RWTS stets wie ein Staatsgeheimnis 
gehütet. In dem vorliegenden Beitrag 
soll deshalb der Schleier des File-Ma- 
nagers, eines bislang wenig bekannten 
Teils des DOS, gelüftet werden. 


Das Disk-Operating-System des Apple Il 
läßt sich in 3 Teile gliedern. Der am besten 
dokumentierte Teil ist ohne Zweifel der 3. 
Teil, d.h. die Read/Write-Track/Sektor- 
Routine oder RWTS, die im Benutzerhand- 
buch kurz beschrieben wird. Ihre Aufgabe 
ist der Transfer von Daten zwischen RAM 
und Diskette; sie bildet somit die Schnitt- 
stelle zwischen Speicher und Laufwerk 
und umfaßt den Bereich von $B800 bis 
$BFFF. Der 1. Teil ($9D00-$AACO) des 
Betriebssystems wird vom Command-In- 
terpreter eingenommen, der für die Be- 
fehlserkennung, die Parameterübergabe, 
die Formate der einzelnen Dateitypen und 
die Bereitstellung der DOS-Puffer verant- 
wortlich ist. Die eigentliche Verwaltung der 
Dateien ist Aufgabe des 2. Teils, des File- 
Managers (= FM), der zwischen dem 
Command-Interpreter und der RWTS liegt. 
Der File-Manager verfügt über eine eigens 
für den Assemblerprogrammierer einge- 
richtete Schnittstelle, die übrigens vom 
Command-Interpreter nicht benutzt wird 
und die über einen der Page-3-Vektoren 
indirekt aufgerufen werden kann. Alle für 
den Aufruf benötigten Werte werden in der 
File-Manager-Parameter-Liste übergeben, 
deren Adresse durch Aufruf einer kurzen 
Page-3-Routine ermittelt werden kann. 
Durch dieses Verfahren ist es möglich, 
den FM auch in verschobenen und ge- 
patchten DOS-Versionen ausfindig zu ma- 
chen. 


Die Organisation einer Diskette 


Vor der näheren Analyse dieser Schnitt- 
stelle sei noch einmal kurz die Organisa- 
tion einer DOS-3.3-Diskette beschrieben. 
Eine Diskette ist im allgemeinen in 35 
Spuren zu je 16 Sektoren mit jeweils 256 
Bytes aufgeteilt: Dies macht zusammen 
60 Sektoren oder 143.360 Bytes. Bei 
diesen 560 Sektoren sind 5 verschiedene 
Typen zu unterscheiden: 
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DOS-Image - Die Spuren O bis 2 beinhal- 
ten das Image des Systemprogramms, 
das beim Booten in mehreren Schritten in 
den Speicher geschrieben wird. Von die- 
sen 3 mal 16 Sektoren werden jedoch nur 
3/ Sektoren benutzt. Die verbleibenden 
11 Sektoren auf Spur 2 werden beim Ini- 
tialisieren einer Diskette dennoch als be- 
legt gekennzeichnet, es verbleiben also 
560 - 46 = 512 Sektoren. 

VTOC - Die Volume Table of Contents 
stellt den Haupteintrag Im Inhaltsverzeich- 
nis der Diskette dar und umfaßt den Sektor 
DO der Spur 17. In ihr sind unter anderem 
die Position des Catalogs und die Track- 
Bit-Map enthalten. In dieser Spur-Bit-Ta- 
belle sind für jeden Sektor 4 Bytes als 
Bitmuster angelegt, wobei ein gesetztes 
Bit den entsprechenden Sektor freigibt 
und ein gelöschtes Bit den Sektor als be- 
nutzt kennzeichnet. 

Catalog-Sektoren — Das Inhaltsverzeich- 
nis belegt die 15 verbleibenden Sektoren 
der Spur 17. Dabei beinhaltet jeder Sektor 
ein Linkfeld zum nächsten Catalog-Sektor 
und 7 Felder für Dateieintragungen. Somit 
sind / mal 15 = 105 Dateieinträge mög- 
lich. Eine Erweiterung des Catalogs ist 
nicht vorgesehen. Jeder Catalog-Eintrag 
enthält außer Name, Dateityp und -länge 
ein Linkfeld zum ersten Sektor der Track/ 
Sektor-Liste (= TSL) einer Datei. Subtra- 
hiert man die Spur 17 von der Nettospei- 
cherkapazität, so verbleiben 496 Sektoren 
oder 126.976 Bytes zur Speicherung von 
Daten. 

Track/Sektor-Liste — Die TSL enthält au- 
Ber einem Linkfeld zur nächsten TSL eine 
Tabelle von 122 T/S-Paaren, die auf die 
Datensektoren einer Datei verweisen. 
Umfaßt eine Datei mehr als 122 Datensek- 
toren, so wird ein weiterer TSL-Sektor an- 
gelegt. 

Datensektoren — Die für den Benutzer 
letztlich einzig bedeutungsvollen Sektoren 
sind die Datensektoren, die entsprechend 
dem Dateityp außer den Informationen 
über Position und Länge im allgemeinen 
ein Abbild des Speichers darstellen. Auf 
die Sonderstellung von Textdateien soll 
hier nicht weiter eingegangen werden. 


Der Aufbau eines DOS-Puffers 


Es erweist sich zum Verständnis des FM 
vorteilhaft, sich noch einmal den Aufbau 
eines DOS-Puffers vor Augen zu führen. 
Der Command-Interpreter richtet beim 
Kaltstart oder der Angabe von MAXFILES 
eine DOS-Buffer-Chain ein, die meist aus 
3 Puffern besteht. Jeder geöffneten Datei 
(dieser Begriff wird später noch einmal 


4 dos3.3 ME 


erläutert) wird ein Puffer zugewiesen. Ein 
solcher Puffer umfaßt 595 Bytes und istin 
5 Felder einteilbar: 


Datenpuffer — $000-$0FF (000-255). In 
diesem Bereich sammelt der FM die zu 
lesenden oder zu schreibenden Informa- 
tionen, um ausschließlich ganze Sektoren 
zu transferieren. 

TSL-Puffer — $100-$1FF (256-511). Die- 
ser Bereich nimmt den gerade aktuellen 
Sektor der TSL auf. 

Puffer des FM-Arbeitsbereichs — $200- 
$22C (512-556). Der FM sichert hier nach 
jedem Aufruf alle im Zusammenhang mit 
dieser Datei wichtigen Werte und liest sie 
bei einem erneuten Aufruf wieder ein. 
Puffer des Dateinamens — $22D-$24A 
(557-586) Ein Dateiname hat stets 30 Zei- 
chen (Bit 7 = 1), wobei der letzte Teil mit 
Blanks ($A0) aufgefüllt wird. Ist dieser 
DOS-Puffer unbenutzt, so erscheint eine 
Null im ersten Byte. 

Adreßliste — $24B-$252 (587-594) Diese 
Adreßliste besteht aus 4 Adressen im 
LSB/MSB-Format und verweist auf die er- 
sten 3 Felder dieses Puffers und das Na- 
mensfeld des nächsten Puffers. Beim letz- 
ten Puffer enthält die letzte Adresse 
Nullen. 


Der Aufruf des File-Managers 


Wie bereits oben erwähnt, kann der FM 
über einen der Page-3-Vektoren, und zwar 
durch JSR $03D6 aufgerufen werden. Bei 
normalem DOS 3.3 ist dies auch durch 
JSR $AAFD möglich. In jedem Fall muß 
vor dem Aufruf die Parameter-Liste ent- 
sprechend vorbereitet werden. Die An- 
fangsadresse dieser Liste läßt sich durch 
folgende kleine Routine ermitteln: 

JSR $03DC 

STY $ED 

STA $EE 

Danach kann mittels ($ED),Y auf die Para- 
meter-Liste zugegriffen werden. Bei nor- 
malem DOS ist deren Adresse $B5BB. 
Die zu übergebenden Parameter sind von 
dem auszuführenden Befehl abhängig und 
können der Tabelle 3 entnommen wer- 
den. Es ist ersichtlich, daß nicht für alle 
Befehle alle Parameter benötigt werden. 
Bevor nun im folgenden auf die einzelnen 
Befehle eingegangen wird, noch einige all- 
gemeine Bemerkungen. 


Der FM kann stets nur eine Datei bearbei- 
ten. Dabei muß jede Datei zunächst einmal 
eröffnet werden. Dieses Eröffnen ist nicht 
mit dem OPEN-Befehl bei Textdateien zu 


verwechseln. Alle für die Bearbeitung der 
Datei benötigten Variablen legt der FM in 
seinem Arbeitsbereich, der sog. File-Ma- 
nager-Work-Area, ab. Um bei einem 
späteren Aufruf diese Variablen wieder pa- 
rat zu haben, kopiert er diese nach getaner 
Arbeit in einen Puffer, dessen Ädresse 
vom aufrufenden Programm in der Para- 
meter-Liste auf Position 12 und 13 bereit- 
gestellt werden muß. Das gleiche gilt für 
die TSL der gerade in Arbeit befindlichen 
Datei. Auch dieser Bereich muß vom auf- 
rufenden Programm bereitgestellt und in 
Position 14 und 15 der Parameter-Liste 
eingetragen werden. Benötigt der FM ei- 
nen Datenpuffer, so ist dieser auf Position 
16 und 17 zu übergeben. 

Hier zeigt sich der Sinn und Zweck der 
DOS-Puffer; sie enthalten nämlich genau 
die geforderten Bereiche, d.h. daß bei der 
richtigen Zuordnung des richtigen Puffers 
beliebig viele Dateien gleichzeitig bearbei- 
tet werden können. Es ist nur sicherzustel- 
len, daß bei jedem Aufruf die entsprechen- 
den Pufferbereiche übergeben werden. 
Das 10. Byte der Parameter-Liste hat eine 
Sonderstellung. Es dient zur Rückgabe ei- 
nes Fehlercodes. Trat während der Arbeit 
des FM ein Fehler auf, wird das Prozessor- 


Carryflag auf 1 gesetzt und ein entspre- 
chender Code im 10. Byte eingetragen, 
ansonsten werden das Carryflag und der 
Fehlercode zu O. Die Bedeutung der ein- 
zelnen Fehlernummern entnehme man 
der Tabelle 1. 

Die letzten beiden allgemeingültigen 
Bytes sind das Byte auf Position 11, das 
ungenutzt ist, und das Byte auf Position 0, 
das zur Übergabe der Befehlsnummer 
dient. 


Übersicht über die FM-Befehle 


OPEN - Der Open-Befehl dient zur Eröff- 
nung einer Datei. Dabei müssen die Lauf- 
werksparameter Slot und Drive sowie die 
Volume-Nummer (0 deckt alle Volume- 
Nummern ab) übergeben werden. Die 
Adresse des Dateinamens muß in Position 
8 und 9 eingetragen werden, der Dateityp 
in Position 7, wobei Bit 7, das Lockbit, 
stets 0 sein sollte (siehe hierzu Tabelle 2). 
Soll später eine Positionierung innerhalb 
der Datei erfolgen, so ist die Recordlänge 
festzulegen; Recordlänge O wird intern zu 
1 geändert. Der FM sucht im Inhaltsver- 
zeichnis der Diskette eine Datei gleichen 
Namens und trägt den vorgefundenen Da- 


Tabelle 3: File-Manager-Parameter-Liste 


Isoolsotlso2|sos|$04 
OPEN 1 og Rekordlänge 
POSI- $ÄA 
TION | 
CLOSE | FI 
READ/ 9 3/ 
WRITE 54 53 ——— 
A 
| 
CATA- | 
LOG | 
uniock| ss| | vv 
RENAME 2. Namens- V 
adresse 
INIT $B DOS- V 
seite 


8 


Record- Sun 
nummer | 


er een 


59 5 
DI — 


$06 | $07 


9 


1. Namens- | 
adresse | 


1. Namens-| 
adresse 


fa Namens- 
adresse 
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teityp in Position 7 ein. Das aufrufende 
Programm kann durch Setzen des X-Regi- 
sters beeinflussen, ob eine neue Datei 
angelegt wird, falls eine Datei gleichen 
Namens noch nicht existiert. Bei X un- 
gleich O erfolgt bei Nichtbestehen die Feh- 
lermeldung „Datei nicht gefunden”, bei X 
= 0 wird eine neue angelegt. Der erste 
TSL-Sektor wird automatisch eingelesen. 
Einem Open-Befehl sollte stets eine Posi- 
tionierung folgen. 

POSITION - Durch diesen Befehl kann 
der Dateizeiger auf eine beliebige Position 
innerhalb der Datei gesetzt werden. Die- 
ser Zeiger wird durch einfache Multiplika- 
tion der Recordlänge mit der Recordnum- 
mer ermittelt. Durch Addition des Record- 
Offsets kann dabei auch eine Position in- 
nerhalb eines Feldes eingestellt werden. 
Dieser Befehl wurde ursprünglich für die 
Bearbeitung von Random-Access-Dateien 
implementiert, kann aber bei jedem ande- 
ren Dateityp angewandt werden. 

CLOSE - Der Close-Befehl schließt die 
Bearbeitung einer Datei ab. Dabei wird der 
letzte Datensektor auf die Diskette ge- 
schrieben und die VTOC sowie die TSL 
aktualisiert. Ein bereitgestellter DOS-Puf- 
fer wird nicht freigegeben. 


$08 |$09 |$ 0A |5 08 | 5. 0C $0ODI $OEITSOF | $10| 517 
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adresse 


Peeker 5/85 


READ/WRITE - Read und Write unter- 
scheiden sich außer in der Befehlsnum- 
mer (Read = 3, Write = 4) kaum in den 
Parametern. Beide Befehle können durch 
den Subcode auf Position 1 nochmals nä- 
her spezifiziert werden. Bei Subcode 1 
und 2 wird an der Stelle fortgefahren, an 
der der letzte Schreib/Lese-Vorgang en- 
dete, bei Subcode 3 und 4 wird entspre- 
chend den zu Üübergebenden Recordwer- 
ten vorher positioniert. Mit Subcode 1 und 
3 wird pro Aufruf immer nur 1 Byte gele- 
sen/geschrieben, das auf Position 8 ein- 
getragen bzw. von dort entnommen wird. 
Subcode 2 und 4 ermöglichen den Trans- 
fer ganzer Blöcke. Dabei muß in Position 8 
und 9 die Lage dieses Blocks eingetragen 
werden. Die Werte auf Position 6 und 7 
dienen dabei als Blockzähler (= Länge 
des Blocks), wobei darauf zu achten ist, 
daß beim Schreiben diese Länge um 1 
vermindert angegeben werden muß. 


DELETE - Dieser Befehl entfernt einen 
Catalog-Eintrag aus dem Inhaltsverzeich- 
nis der Diskette. Entfernen bedeutet hier- 
bei kein Löschen, sondern eine spezielle 
Markierung. In einem weiteren Zug wer- 
den dann alle durch diese Datei belegten 
Sektoren freigegeben. Dieser Befehl führt 
implizit ein OPEN durch. Das X-Register 
sollte daher, um dem FM unnötige Arbeit 
zu sparen, beim Aufruf stets ungleich O 
sein, 

CATALOG - Dieser Befehl listet das In- 
haltsverzeichnis der Diskette und ent- 
spricht exakt dem normalen CATALOG- 
Befehl. Es sei in diesem Zusammenhang 
erwähnt, daß der FM bei jedem Aufruf den 
in Position 12 und 13 angegebenen Ar- 
beitsbereich einliest, obwohl dies bei eini- 
gen Befehlen nicht notwendig wäre. Es 
kann bei diesem Aufruf also durchaus auf 
die Benutzung eines DOS-Puffers ver- 
zichtet und statt dessen ein beliebiger 45 
Bytes großer Bereich angegeben werden. 
LOCK/UNLOCK - Diese beiden Befehle 
verändern das Bit 7 des Dateitypbytes im 
Catalog-Eintrag. Da auch diese Befehle 
ein implizites OPEN durchführen, sollte 
auch bei diesem Aufruf das X-Register 
ungleich O sein. 

RENAME - Hierbei wird das Namensfeld 
in einem Catalog-Eintrag geändert. Die 
Adresse des zweiten Namens ist auf Posi- 
tion 2 und 3 zu übergeben. Auch hier wird 
ein Open durchgeführt. 

INIT — Dieser Befehl initialisiert durch Auf- 
ruf der RWTS die Diskette und schreibt 
dann das DOS-Image auf die Spuren O bis 
2. Anschließend wird die VTOC und der 
Catalog angelegt. Auf Position 1 ist die 
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Tabelle 1: File-Manager- 
Fehlermeldungen 


Ö — kein Fehler 


er 


l 


DTMIAUD 


=00- 


Sprache nicht verfügbar 
(beim Laden von RAM-A/S) 
ungültige Befehlsnummer 


12 dos 3,3 24 


Tabelle 2: Dateitypen 


Bit 7 
Bun 


308 — 
Sol — 


l bei gesperrten (locked) Dateien 
Ö bei nicht gesperrten Dateien 


Textdatei 
Integer-Basic-Programmdatei 

















ungültiger Subcode $62 - Applesoft-Programmdatei 
Diskette schreibgeschützt $64 — Binärdatei 
keine weiteren Daten $P8 — unbenutzt (Typ S) 
Datei nicht gefunden $1® — verschiebbares Assemblermodul (Typ R) 
(bei X = ® dennoch Neuzuweisung)} $28 — unbenutzt (Typ A) 
falsche Volumenummer $48 — unbenutzt (Typ B) 
I/O-Fehler 
Diskette voll 
Datei gesperrt (locked) 
FM.BSP 
1 * - MT ———————u 
2 * File-Manager Anwendungsbeispiele * 
3 gelenluzeu u nee ne nn an 
A 
Ei ORG $8P09 
7 
8 FMPL EQU $EB ;Adresse der F/M-Parameter-Liste 
9 BUFADR EQU $ED ‚Adresse des DOS-Puffers 
1®  DOSWRM  EQU $3D9 ;Sprung zum DOS-Warmstart 
14: FLEMGR EQU $3D6 ;Sprung zum File-Manager 
12 GETFMPL EQU $3DC ‚FMPL ermitteln 
185 CROUT EQU $FDSE ;CR ausgeben 
14 PRHEX EQU $FDE3 ;Hexzahl ausgeben 
15 PRERR EQU $FF2D ;"ERR'" ausgeben 
16 
IR #--—--———-—  . --.. . . DELETE -------------- 3 
18 
söRB: 2A 51 88 19 JSR :'STARLUP 
8003: 28 SD BB 20 JSR SETFLNl ;Dateiname eintragen 
Bde: AS 05 el LDA #5 ;DELETE-Befehl 
808: AC 82 80 22 JMP CALLFM 
23 
24 *#-——---———----- ----—-——— CATALOG -—---- 0. - * 
25 
SsöhB: 20 51 88 26 JSR STARTUP 
SüßE: AS B6 ar LDA #6 ‚CATALOG-Befehl 
Bsölß: AC 82 88 28 JMP  GALLFM 
29 
3D 8-2 LOCK --- 0 * 
Sl 
8613: 20 51 88 32 JSR STARTUP 
sele: Ad SD 88 33 JSR SETFLN1 ‚Dateiname eintragen 
BB19: AI 97 54 LDA #7 ;LOCK-Befehl 
8öl1B: AC 82 80 35 JMP CALLFM 
36 
Be B——— UNLOCK -----—- + 
Ss 
SßlE: ZB 51 88 39 JSR STARTUP 
8B21: 2d 6D 88 Ad JSR SETFLNI ;Dateiname eintragen 
8924: A9 88 Al LDA #8 ; UNLOCK-Befehl 
8026: AC 82 88 42 JMP  CALLFM 
43 
44a #--—----- RENAME ------—-----—--- - - — - . . . .— * 
45 
8029: 28 51 88 46 JSR STARTUF 
sdac: 20 75 89 47 JSR SEIELNZ ;RENAME-Dateiname eintragen 
SÖ2F: 20 6D 80 48 JSR SETFLNI ‚alten Dateiname eintragen 
8032: A9 09 49 LDA #9 ;RENAME-Befehl 
8034: AC 82 89 5% JMP CALLFM 
51 
52 #-----—---- INIT --------——------ -- * 
Di 
8037: 20 51 88 54 JSR STARTUP 
B803A: AD D2 83 55 LDA DOSWRM+2 ‚erste Seite des DOS-Image 
Sß3D: AB Bl 56 LDY #1 ; ermitteln und 
8Sd3F: 91 EB 57 STA {FMPL),Y ; eintragen 
80Al: A9 OB 58 LDA #11 ‚INIT-Befehl 
8043: AC 82 88 59 JMP CALLFM 
69 
Gi ee 2 emwr me nr VERIEy ges e ee nen 
62 
8046: 20 51 88 63 JSR STARTUP 
8049: 20 TB BB 64 JSR SETFLNlL ;Dateiname eintragen 


En Er Dr el Er vr in Fan: 


erste Seite des sich im Speicher befindli- 
chen DOS anzugeben (normalerweise 
$9D00), auf Position 4 die Volume- 
Nummer. 

VERIFY - Es handelt sich hier um densel- 
ben Befehl, wie er auch unter Basic An- 
wendung findet. Praktisch geschieht 
nichts anderes als ein komplettes Lesen 
der Datei, wobei ausschließlich RWTS- 
Fehler auftreten können. 


Um die Verwendung des FM noch einmal 
zu verdeutlichen, ist diesem Beitrag ein 
kurzes Beispielprogramm FM.BSP ange- 
fügt, das den Aufruf der einzelnen Befehle 
näher erläutern soll. Die dort nicht aufge- 
führten Befehle werden in einem späteren 
Beitrag anhand einer FID-ähnlichen File- 
Copy-Utility ausgeführt. 


Leider läßt sich der FM nicht in jeder DOS- 
Version ohne weiteres aufrufen. Das von 
Glen Bredon stark gepatchte DOS des 
Merlin-Assemblers verweigert die Zuord- 
nung neuer Dateien. Der Schlüssel zu die- 
sem Problem liegt in einem Byte (oder 
besser noch in einem Bit) des Command- 
Interpreters, der eine Tabelle zur Überprü- 
fung der Gültigkeit der verschiedenen Pa- 
rameter jedes Befehls enthält. In dieser 
Tabelle ist je 1 Bit für die Möglichkeit einer 
Dateineuzuweisung angesetzt. Der alte, 
jetzt geänderte INIT-Befehl ließ dies zu. 
Da daraus der ASSEM-Befehl wurde, hat 
Bredon dieses Bit zurückgesetzt. Beim 
Aufruf des FM wird durch das X-Register 
der INIT- oder LOAD-Befehl simuliert, d.h. 
in dem einen Fall ist eine Neuzuweisung 
möglich, in dem anderen nicht. Nach Bre- 
dons Eingriff war in beiden Fällen keine 
mehr möglich. Eine schnelle Lösung für 
dieses Problem: $A909 wird wieder zu 
$21. Dies tut dem Merlin keinen Abbruch 
und der FM arbeitet wieder, wie er soll. 


A. 
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sBac: 
SBAE: 


8851: 
8054: 
80586: 


8858: 
8A5B: 
8asD: 
8Ö5F: 
8d6l: 
5963: 
864: 
8065: 
8867: 
8069: 
BÖSA: 
BAsc: 


SÖED: 
BÖGF: 
871: 
8073: 
8875: 
BörT: 
8979: 
8ATB: 
BÄTD: 
BOTE: 
SÖTF: 
8881: 


8982: 
8084: 
8ÄBE: 
888: 
SÖBA: 
BBSC: 
SASD: 
SPSE: 
8BIB: 
8992: 
8094: 
80985: 
8997: 
8098: 
8B9A: 
BBSC: 
SIE: 
8ßal: 
BBAS: 
BBAA: 
8BAS: 
‚BBAB: 
SAAB: 
BRAD: 
SBAF: 
8öBl: 
8AB2: 
8ßB5: 
SABB: 
8ßB9: 
SBBC: 


SÖBD: 
8AC3: 
8009: 
SAcr: 
8SÄD5: 
SÖDB: 
SBEl: 
BET: 
SED: 
8ör3: 


8AF9: 
SAFA: 
8AFB: 


Ag 
ac 


29 
84 
85 


AD 
85 
AB 
84 
Bl 
AA 
08 
Bl 
85 
8A 
85 
6% 


Ag 
AR 
AB 
D® 
Ag 
AR 
Ad 
91 
C8 
BA 
91 
6g 


A2 
Ad 
91 
AB 
Bl 
48 
c8 
CB 
99 
AB 
68 
91 
88 
c9 
Bo 
Ad 
B9 
91 
c8 
c9 
99 
28 
AB 
Bl 
99 
48 
29 
29 
68 
ac 
69 


ca 
AB 
AB 
Ad 
AB 
CA 
I) 
AB 
AB 
Ad 


29 
Bl 
6 


252 Bytes 


dc 
82 


DC 
EB 
BC 


D2 
EE 


ED 
ED 
ED 


EE 


ED 


Ad 


8 


#3 


03 


88 


93 


FD 
FF 


FD 


DA 
AD 
Ad 
AD 
Ad 
DA 
Ad 
AB 
AB 
AD 


113 
114 
115 
116 
117 
118 
119 
128 
121 
122 
123 
124 
125 
126 
127 
128 
129 
139 
isl 
132 
133 
134 
135 
136 
137 
138 
139 
14® 
141 
142 
143 
144 
145 
146 
147 


LDA #12 :VERIFY-Befehl 
JMP CALLFM 
E—- onen rn * 
STARTUP JSR GETFMPL Adresse der File-Manager- 
STY FMPL ; Parameter-Liste 
STA FMPL+l ; ermitteln 
LDA DOSWRM+2 ‚Adresse des 1. DOS-Puffers 
STA BUFADR+] : ermitteln 
LDY #9 
STY BUFADR {l. Eintrag im DOS-Image 
LDA {(BUFADR),Y ; verweist auf den 1. Puffer 
TAX : der DOS-Buffer-Chain) 
INY 
LDA (BUFADR),Y 
STA BUFADR+H 
TXA 
STA BUFADR 
RTsS 
SETFLNl LDA #<FLENMEl ;erster Dateiname 
LDX #>FLENMEI 
LDY #8 ;‚Offset zum 1, Dateinamen 
EBENE SETFLN ‚unbedingt 
SETFLN2 LDA #<FLENME2 ;RENAME-Dateiname 
LDX #>FLENMEZ 
LDY #2 ‚Offset zum 2, Dateiname 
SETFLN STA (FMPL),Y :LSB der Adresse eintragen 
INY 
TAA 
STA SIEMEEI, N :MSB der Adresse eintragen 
Rls 


* File-Manager aufrufen 


CALLFM LDX 
LDY 
STA 
LDY 
GETADRS LDA 
PHA 
INY 
CRY 
BCE 
LDY 
SETADRS PLA 
STA 
DEY 
CPY 
BCS 
LET 
SETVDS LDA 
STA 
INY 
CPY 
BCG 
JSR 
LDY 
LDA 
BC 
PHA 
JSR 
JSR 
PLA 
JMP 
NOERR RTS 


FLENMEl ASC 
HEX 
HEX 
HEX 
HEX 
FLENMEZ2 ASC 
HEX 
HEX 
HEX 
HEX 


VODRSL DFB 
DFB 
DFB 


*#] ;keine Neuzuweisung 

+9 :CALLTYP in Parameter- 

{FMPL),Y ; Liste eintragen 

+30 

(BUFADR) ,Y ;Pufferadressen aus DOS- 
; Puffer einlesen 

+36 (FM-Arbeitspuffer) 

GETADRS {TSL-Puffer) 

+17 (Datenpuffer) 

(FMPL),Y ‚und in die Parameterliste 
‚ eintragen 

#12 

SETADRS 

#4 ; Volume 

VODRSL-4,Y ;, Drive 

(FMPL),Y Ssiot 

#7 ‘ın Farameterliste 

SETVDS ;‚ eintragen 

FLEMGR ;File-Manager via Page 3 

+10 

(FMPL),Y ;Return-Code 

NOERR 
;Return-Code retten 

CROUT 

PRERR ;"ERR" drucken 

PRHEX ;Fehlernumner ausgeben 

"DATET IN 

ABABADABABAD 

ABABADADAGAB 

ABABABABADAD 

ABABABADADAD 

"DATEI2!" 

ABABADABADAD 

ABADABABADAB 

ADADABABADAD 

ABABADABADAB 

Ö ; Volume 

l ‚Drive ar 

6 ;Slot = 
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Katalog kostenlos! 


ae (07221) 3487 


Heiße Renner 


NEU NEU NEU NEU 


D.O.S. Computersysteme 


Am Kühnbach 42 
7170 Schwäbisch Hall 11 
Tel. (07 91) 517 36 oder 542 27 


Bei Vorkasse oder Nachnahme 
erfolgt Versand spesenfrei 


Ausführlicher Katalog DM 2,— 
in Briefmarken 


D.0.S. Computersysteme 
Der Spezialist für Schulen, 
Universitäten, Techniker! 


olle Garantie auf diese Computer 


Ohne Einschränkungen voll Apple compatible. 

48 u.64 K. Jeder Computer auf Herz und Nieren 
geprüft. Alle IC’s gesockelt. 8 Slots. 10er Numeric 
Block. Netzteil 5 Amp. Peak 

48 K Personal Computer 


BN 65001 


64 K Personal Computer 
mit Dual Processor Z 80/6502 


BN 65061 DM 1198, — 
12” Monitore. Industriegehause. 15 MHz auflosend. 


40/80 Zeichen. 220 W/50 Hz. rec 


Grüner Schirm BN 650898 DM 320, 7 


Oranger Schirm BN65088 DM 320,— 


Betriebsbereite Systeme 


48 K - Apple kompatibles System. 5-Amp.-Netzteil. Spezielle 
Numeric Tastatur. Groß/Kleinschreibung. Alle IC’s gesockelt. 8 Slots. 
Erweiterbar bis 256 K. Software kompatible an alle Apple Software wie 
CP-M /PASCAL /FORTRUN /LOGO / FORTH usw. Direktanschluß für 
Datacassette und Video-Monitor. FLOPPY-LAUFWERK 514", Slimline- 
Ausführung. Metallgehäuse. Anschlußkabel mit Stecker. Voll-Apple- 
Kompatible. DISC-DRIVER-CARB für den Anschluß von 2 Floppy-Lauf- 
werken 5%4”. 12” MONITOR. MONOCHROM GRÜN. Indusiriegehäuse. 
Auflösung über 15 MHz. Umschaitbar 40/80 Zeichen. AufWunsch liefern 
wir diesen Monitor auch mit orangenem Schirm. 


48 K-System 


48 K - Computer + Floppy-Laufwerk 514” + 12” Monitor + 1 Jahr Voll- 
garantie + Eigener Kundendienst + Auf Wunsch zinsfreie Teilzahlung 


DM 1098, — 


BN 65 158 COMPUTER-TRAUM NR, 1 DM 1878,— 


ANGEBOT WIE OBEN, 

jedoch mit 2 FLOPPY-LAUFWERKEN 

BN 65 159 COMPUTER-TRAUM NR. 2 D M 2098, — 
64 K - Apple kompatibles System, wie unser 48 K, jedoch mit 
Duai-Processor Z 80 und 6502 + 64 K-Erweiterung. 

64 K-System 

64 K-Computer mit Dual Processor + Floppy-Laufwerk 514” + 12” Moni- 


tor + 1 Jahr Garantie + Eigener Kundendienst + AufWunsch zinsfreie 
Teilzahlung 25% p. NN, Rest in 3 gleichen Monatsraten ohne 


Bearbeitungsgebühren. 
BN 65 160 COMPUTER-TRAUM NR. 3 D M 1948, — 
ANGEBOT WIE OBEN, 
jedoch mit 2 FLOPPY-LAUFWERKEN 
BN 65 161 COMPUTER-TRAUM NR. 4 DM 2299, — 
Der Massenspeicher 1 M-Byte 
Mit Anschlußanleitung für Apple-Computer. 
3"-Mini-Floppy-Laufwerk. 2 x 80 = 160 Track, 
1 Mega-B Doppelkopf. Standard Shugart BUS, 
Qualitätslaufwerke eines bekannten Japanischen 
Herstellers. Guß-Chassis, 1 Jahr Garantie, Kun- 
dendienst über unsere Organisation. 
Minimaße nur 150 x 100 x H 40 mm. 

‚BM 65163 1 M-BYTE-KAPAZ. DM 598, — 


Bli 


25% p. NN, Rest in3 gleichen Monatsraten ohne Bearbeitungsgebühren. 





NEU NEU NEU NEU 
Chinon-Laufwerk 


» Apple Il kompatibel « 
(Bericht in diesem Heft) 


nur 498, DM 


Aus unserem umfangreichen Angebot: 


Prolimax II mit 64K RAM, Apple Il-comp., 
6502 + ZBD, progr, Tastatur, num. Block, 5A-Netzteil . 


Profimax Il, wie oben, im IBM-Gehäuse 
mit |BM-Tastatur...... 


Motherboard Profimax 


Promatric B2-Motherboard, 3 Praz., 2 Schniltst,, 
192K RAM, 80 Zeich 


Prometric B3-Molherboard, wie 2 
zusätzlich 256. K Pseudodise.. 


Profimanitor, Metallgehäuse, 22 MHZ, 12", bernstein . .... 398,- 
Monitor Heath/Zenith. ZUM 123, grün, 15 MHZ ...,.4--. 308.- 
Tastatur aus Profimaß I-200=-a0nH HH ner 

IBM-Tastatur, deutsche Belegung 


TEAG 55A, kompl. m. Kabel u. Geh., anschlußfertig 
an Apple-Contr. .... 


TEAC 55F, 2x 80 SUN. M modif. für Betrieb an Apple, 
Speichsrriese .. Wenn 


Disk II Controller 


1248,- 


= TA, 


“ranreerearerterreeaeetrtereeeenterree 


Graphic Computer RT 
Graphic-Designer Apple compatible. 
Erstellt Zeichnungen und Graphicen einfach GRAPHIC 
und schnell, Direkt auf den Bildschirm, 

Gute Auflösung. Viele Funktionen bereits MOUSE »# 
programmiert wie Frame/Line/Circle/Ellype/Fill/ u a ra 
Prints u. viel, viel mehr. Komfortable Menu- u 
Steuerung. Anschluß über Game IO Port 
Lieferung mit Kabel, Software 5 14" Discette 


und Änleitung 
BN 65156 DM 189, — 


u a 


Unser Kundendienst in Baden-Baden 
und Karlsruhe kann alles reparieren. 
Wir verfügen über alle Ersatzteile. 


Paßt an jeden Apple und ähnliche 

Lautloses 514” Floppy-Laufwerk völlig narrensicher. 
Hochwertigste jap. Mechanik. Elektronik garantiert 
ohne Ausfälle. Wir geben gerne 1 Jahr Garantie 

auf diese Qualität. Slim Line. 

Jap. Spitzentechnologie 

BN 65147 Geräuschloses 514” 
BN 65148 Pass.Slim Line Geh 


BN 65011 Disc Drive Card DM 119,— 


Blitzpreis! Japan-Qualität 
514”/Apple compatible Anschlußkabel 
Apple fähiges Floppy. Slim Line, Metall-Gehäuse 

1 Jahr Vollgarantie. Sofort anschließbar 

Einfach nur am Apple einstecken 

BN 65 1151 DM 399,90 


DM 448, — 
DM 38,— 


LOST MEET EHER TaTel Le MOL RER | reach 


LEN Pr Re REN FLTETER ATELIER NE Seel 


N 
3 DK 
Ne Dee 


Hochwertige Interface-Leerplatinen 
für Apple u.ä. 


Epoxy oder glasfaserverstärktes Material. Bereits gebohrt. 
65164 64 K Motherboard 89,— 65171 Eprom Writer 19,50 
Dual-Processor 65172 PAL/YVIDEO/Modul. 19,50 
65165 Z-80 65173 128K 29,50 
65166 80 Zeichen/Soft 65174 Mikro Buffer 19,90 
65167 Serial/RS 232 65175 Buffer Printer 25,80 
65168 Parallel/8 Bit 65176 Super Serial 19,90 
65169 16 KRAM 65177 wD 19,50 
65170 6522 65178 Micro Modem 29,50 


ce Au des 
un) 

BN 65152 
are 


1, a 


Lin 
IT 


Li arte 


19,50 
19,50 
15,90 
15,90 
19,50 
15,90 


Gontr. für alle 5%4" Laufwerke, mil Patch für 
DOS, CPiM, PASCAL 


280-Softtard 2442240240 
80Z-Karte, Softswitch, 2 Zeichens, ..44424.;- 
807-Karts, mil 4 Zeichensätzen .ooosccaeeeananen en 298,- 


Druckerinterface, par, (= Centr.), für alla 
STAR-Drucker, grafik! 


Epromburner Iür BTIE-BTEM see easeneneen nenne 
AD-Wandier, 333ms Wandelz,, 1 Kanal 


Drucker STAR Gemini 10%, grafikfähig, 120 en 
GBRTONIEN: u.Ce rar Een rar 


Drucker STAR Radix 10, Schönschrift, 200 cpl, 
Centrionies ...-. 


Schreibmaschine Olympia electr, a 2, 
Gantronies-Schnillsl - 2:22.22... 22a, 1493,- 


Plotter Pxy 3, DINA4 can 
Disks Scotch, SS, DD, 10:31 ..cenuscrsnnee nenn: 65,- 
Joystick mil Mittelzentr. u, Just 


Soft und Zubehör 


5 Stuck Comp. Cassetten, 
10 Min. Tonbandspulen 


BN 65045 

5 Stuck Comp. Casseiten 

15 Min. ohne Tonbandspulen 

BN 65046 

5 Stuck Discetienbox 514" furje 5 Discetten tarbıq 


BN 65112 M 12,90 
51a" Disceiten Bibliothek fur 10 Discelten Kunststoff 
BN 65057 D 


’ 
5Ya" Discetlen Bibliolhek fur 15 Discetten Kunststoff 
BN 65130 DM 19,80 
514" Discetten Bibliothek fur 50 Disceiten Kunststoff 
BN 65110 D ; 
514" Disceiten Bibliothek 
für 100 Bisceiten Kunststoff abschließbar 
BN 65049 DM 49,80 7 


Verpackung frei 


Dise Doubler {Notcher) 

macht aus einer 5S eıne DS 5'4" 

BN 65143 DM 14,90 
*Microswitch, 

Standard ASCII Parallel, 

Halltastatur/Cursor/Viele Funktions- 

tasten/+5 W-12V 


BN 92272 Apple u.a DM 178,— 


Der SUPERKNÜPPEL FÜR APPLE 
und kompatible. VG-071. 

Joystick der edelsten Sorte. 
Leichtgängiger Kreuzknüppel mit automatischer 
Nullpunkt-Rückstellung: Spezielle Trimmregler 
zur genauen Einpegelung fur jeden Kanal 

2 Abschußknöpfe, Rutschleste Gummifüße, 
Flexibles Anschlußkabel 1,60 m lang, 

Kompleti mit Stecker, sofort betriebsbereit 


Metallgehause 
BN 65056 VG-071 DM 49,90 


Original TEAC 55 F. Double Density. 2 x 80 Track. 


BN 65179 


300 Band Modem CCITTY. 21 

Postgenehmigt mit FTZ. Anschluß an alle Computer 
mit 24 Schnittstelle, Schnittstellenstecker. Vollduplex. 
Answer- und Originalmodus. Autom. Kanalwahl. 


Made in Germany. D M 298, — 


BN 65180 s 
Neue Discetten-Boxen 


Karussell-Box für 64 Discetten 5Y4”, 
Bequemer Zugriff. Stapelbar oder mit 
Wandhalterung. 8 320 x H 200 mm 
BN 65155 

Jetzt 3,5" Discetten-Box für 

50 Stück 3,5” Discetten 
Klappbox mit Sortiereinrichtung 

BN 65146 





STETS II 


Schnell-Versand 


DM 59,80 


DM 29,50 


Bühler Elektronik, Postfach 32, 7570 Baden-Baden, Tel. (07221) 3487 
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von Ulrich Stiehl 


Die Firma Digitanalog Ewald Balfer hat seit 
einiger Zeit eine preiswerte Interface-Kar- 
te im Produktionsprogramm, die als durch- 
kontaktete Leiterplatte (DM 35,—), als Bau- 
satz VIA 6522, CMOS-RAM und Sockel 
(DM 128,-) sowie als geprüfte Fertigkarte 
(DM 158,-) geliefert werden kann. Auf der 
uns zur Verfügung gestellten Komplettpla- 
tine befindet sich ein 2K-RAM, das jedoch 
auch durch ein EPROM 2716 ersetzt wer- 
den kann. Für die RAM-Version gelten fol- 
gende Adreßbereiche: 


— CX00-CXFF (X = 1-7) 

— C6800-CEFF 

Eigentlich ist die Karte als gewöhnliche 
Kommunikationsschnittstelle gedacht, z.B. 
als Parallel-Interface, serielles Interface 
(RS 232), Modem-Interface usw., und es 
werden von uns auch entsprechende Utili- 
ties für diesen Anwendungszweck vorbe- 
reitet, z.B. ein Drucker-Dump-Programm 
für Double-Hires-Grafik. 


1. Balfer-Interface löst Softswitch- 
Probleme 


Wer auf dem Apple Ile in Maschinenspra- 
che programmiert, dem fallen neben der 
„konventionellen“ Anwendung ganz an- 
dere Einsatzmöglichkeiten für die dann nur 
noch als RAM-Speicher fungierende Karte 
ein. Der Apple Ile verfügt über relativ kom- 
pliziert zu handhabende Softswitches für 
die Speicherverwaltung (Memory Mana- 
gement). Dies rührt daher, daß die 64K- 
Karte des Apple Ile - im Gegensatz zu 
RAM-Karten anderer Produzenten (IBS 
usw.) -in denselben Adreßbereich wie die 
„unteren“ 64K „gemappt“ ist. Es gilt je- 
doch der alte Grundsatz der Speicherver- 
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waltung, daß eine Memory-Management- 
Utility (MMU) normalerweise nicht in dem- 
selben Speicherbereich liegen sollte (oder 
darf), der durch die Speicherverwaltung 
tangiert wird. Ein einfaches Beispiel zur 
Erläuterung: 


Nehmen wir an, wir wollten das Byte der 
Speicherstelle $2100 der „oberen“ 64K 
(64K-Karte) in die Speicherstelle $2100 
der „unteren“ 64K (64K-Platine) übertra- 
gen. Darf sich dann das Übertragungspro- 
gramm im Speicherbereich ab $2000 in 
den „unteren“ 64K befinden? Beim Apple 
Ile (und im übrigen auch beim Apple Ilc) 
gibt es u.a. 4 Softswitches, die für unser 
Beispiel von Interesse sind: 

a) STA $C002 macht den „unteren“ Spei- 
cherbereich $0200-$BFFF |lesefähig 
(read-enable, read-select} und damit 
gleichzeitig den „oberen“ Speicherbe- 
reich $0200-$BFFF leseunfähig. 

b) STA $C003 macht den „oberen“ Spei- 
cherbereich $0200-$BFFF lesefähig und 
damit gleichzeitig den „unteren“ Spei- 
cherbereich $0200-$BFFF leseunfähig. 

c) STA $C004 macht den „unteren“ Spei- 
cherbereich $0200-$BFFF schreibfähig 
(write-enable, write-select}) und damit 
gleichzeitig den „oberen“ Speicherbe- 
reich $0200-$BFFF schreibunfähig. 

d) STA $C005 macht den „oberen“ Spei- 
cherbereich $0200-$BFFF schreibfähig 
und damit gleichzeitig den „unteren“ 
Speicherbereich $0200-$BFFF schreibun- 
fähig. 


Betrachten wir hierzu folgende Fälle, bei 
denen angenommen sei, daß vor Pro- 
grammbeginn der Speicherbereich 





50200-$BFFF bereits lese- und schreibfä- 
hig gemacht worden sei: 


Fall 1 


ORG $2000 
LDA $2100 

STA $2100 

RTS 


Im Fall 1 würde das Byte von Speicherstel- 
le $2100 in dieselbe Speicherstelle $2100 
übertragen werden. Das Programm würde 
funktionieren, doch erfüllt es nicht die ge- 
stellte Aufgabe und wäre im übrigen auch 
sonst nutzlos. 


Fall 2 


ORG $2000 
STA $C005 
LDA $2100 

STA $2100 

STA $C004 
RTS 


Im Fall 2 würde das Byte der Speicherstel- 
le $2100 des „unteren“ Speicherbereichs 
$0200-$BFFF in die Speicherstelle $2100 
des entsprechenden „oberen“ Bereichs 
übertragen. Das Programm würde funktio- 
nieren, erfüllt aber nicht die gestellte Auf- 
gabe. 


Fall 3 


ORG $2000 
STA $C003 
LDA $2100 

STA $2100 

STA $0002 
RTS 
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Im Fall 3 wäre zwar theoretisch die gestell- 
te Aufgabe erfüllt, aber das Programm 
würde nach STA $0003 jämmerlich „ab- 
saufen”, weil der nachfolgende Befehl 
LDA $2100 nicht mehr vom Prozessor ge- 
lesen werden könnte, weil er nunmehr auf 
die „oberen“ 64K „blickt“, während sich 
das Programm in Wirklichkeit „unten“ be- 
findet. 


Fall 4 


ORG $0100 
STA $C003 
LDA $2100 
STA $2100 
STA $C002 
RTS 


Im Fall 4 würde endlich alles ordnungsge- 
mäß funktionieren, weil sich nunmehr die 
MMU außerhalb des Softswitchbereiches 
$0200-$BFFF befindet. Die Verwendung 
des Stacks $0100-$01FF oder gar der Ze- 
ro-Page $0000-$00FF als Programmbe- 
reich kann jedoch nicht gerade also opti- 
mal bezeichnet werden, da man sich nor- 
malerweise niemals sicher ist, ob dieser 


SLOTRAMDISK 


für Apple IIe mit 64K-Karte in S3 
und Balfer-Karte in (z.B.) 54 
BSAVE SLOTRAMDISK, A24736, L825 
Hex-Dump: 


S6hAp: AC AA 60 BA AD AZ 6B 18 
$6BAB: 69 CO 8D 26 61 8D 31 61 
$6ÖBd: AD AS 60 GA BA GA BA 8D 
$6dB8: 28 63 A2 BB BD EE 68 Fo 
$6dcd: ds 20 ED FD ES DO F5 2P 
$66C8: BC FD C9 CE FO 11 C9 EE 
$6oDd: FÜ BD C9 CA FÜ d6 C9 EA 
$6ßD8: FO 02 DO EB 20 56 61 28 
$6ßEß: B7 61 EA EA EA AY A9 8D 
$6BEBS: 92 B2 EA AC DB d3 8D D2 
$6OFB: CI CD CA C9 DZ CB B6 BA 
$6ßFs: AB ED ES FA AB C9 EE E9 
66106: FA AB CA AF CE AB dB A2 
$6108: 03 BD ÖB BD DD 2B 61 DB 
$611ß: 22 CA 10 F5 A2 03 BD 2F 
$6118: 61 9D B8 BD CA 10 F7 A2 
$6128: ÖB BD BB 63 9D dB CA E8 
$6128: DE F7 60 84 48 85 49 AC 
$6138: d6 CA dB A2 GB BED 43 61 
$6138: Fß d6 20 ED FD E8 DB F5 
$6148: AC EA 68 8D CA CF D3 Aß 
$6148: ED EF EA E9 E& ES FA E9 
$6150: ES F2 FA 87 8D GB a9 dp 
$6158: 85 CE 8C BB Cd 8c d2 ch 
$6l6ß: BC da ca SC BB ch Sc 99 
$6168: CO AB 99 BB BO CS DO FA 
$6176: 993 BB Bl CS DO FA Sc 08 
$6178: CO AB 02 8A CF SC 05 Co 
$6180: AB 91 CE CB DO FB E6 CF 
$6188: A6 CF EB CÖ DI FZ SC da 
$6190: CO 8C B9 Ch AC 83 C9 AC 
$6198: 83 Cß 8D A4 61 AB DA Sc 
$61Aß: A5 61 AB 99 Bd DO CE DI 
$61A8: FA EE A5 61 DO F5 AC 8B 
$61Bß: CO AC 8B CO 8D BE 61 Ad 
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Bereich wirklich immer frei ist. Beispiels- 
weise benutzt der Applewriter Ile den 
Stackbereich, um den Text von „unten“ 
nach „oben“ zu übertragen. 


Fall5 


ORG $C400 
STA $C003 
LDA $2100 
STA $2100 
STA $C002 
RTS 


Im Fall 5 liegt die MMU im Slot-RAM- 
Bereich der Balfer-Interface-Karte, wobei 
hier willkürlich Slot 4 angenommen wurde, 
obgleich sich diese Karte in jedem beliebi- 
gen Slot befinden kann. Da der Slot-RAM- 
Bereich $C400-$CAFF oder allgemein 
$CX00-$CXFF praktisch immer lese- und 
schreibfähig ist, entstehen nicht mehr die 
skizzierten Softswitch-Probleme. Deshalb 
läßt sich der RAM-Bereich $CX00-$CXFF 
sowie der nach LDA $CFFF zusätzlich ak- 
tivierbare Bereich $C800-$CEFF ideal für 
MMU-Utilities unterschiedlicher Art ein- 
setzen. 


$651B8: D® BF 61 A8 99 
$s1ch: c8 FA EE BF 61 
$slc8: 61 Eß DB FB Sc 
$61DPB: AC ch AC 81 CP 
$61D8: CH a8 BD BB 62 
$S1Eß: 16 DE F7 AS 11 
$61E8: IF dl 1E A9 dE 
SElFß: IF öD 8D 2 IE 
$61FS: CO a1 ch 20 58 
Catalog-VTOC für RAM-Disk 
HERAB: 

56288: 

Ss21B: 

66218: 

6228: 

$6228: 

6230: 

$6238: 

65249: 

6248: 

962589: 

56258: 

HE2680: 

6268: 

6278: 

$6278: FF 

$6288: FF 

56288: FF 

$6296: FF 

56298: FF 

S62AB: FF 

$62A8: FF 

$62Bd: FF 

$62B8: BB 

$62c09: 98 

$62C8: 98 

$62D9: BB 

$62D8: 

$62EB: BB 

$62ES: BB 

$62FB: BB 





2. SLOTRAMDISK-Driver 


Als konkrete Anwendung wird nachfol- 
gend das Assembler-Programm SLOT- 
RAMDISK (als Hexdump) in Verbindung 
mit einem kurzen Applesoft-Programm 
gelistet, das die 64K-Karte als RAM-Disk 
einsetzt, die mit einem beliebigen Slot 
(hier Slot 4) angesprochen werden kann, 
wobei die Drive-Nummer ignoriert wird, 
also 

CATALOG, S4, D1 

CATALOG, S4, D2 

Aus Platzgründen wird der Quelicode des 
RAM-Disk-Drivers nur auszugsweise ab- 
gedruckt, da ein analoger RAM-Disk-Dri- 
ver, der ohne das Balfer-Interface aus- 
kommt, aber softswitchmäßig erheblich 
umständlicher und damit auch etwas lang- 
samer ist, in einem der nächsten Peeker- 
Hefte komplett gelistet wird. 


Als weitere Programme für das Balfer-In- 
terface sind u.a. geplant: 

a) Double-Hires-Printer-Driver 

b) Softbreaker-Utility 

c) Modem-Programm 

d) 80-Z/Z-Karte-Driver 


$62F8: BO Bo do Dee de 
RAM-Disk-Driver $C4ß0-$CAFF 

36300: 20 82 Ch AC 59 FF 84 48 
$63ß8: 85 49 SE 09 CO 84 AO 55 
$6318: Bl AD 11 C9 85 97 AD 12 
56318: Ch 85 dB AB dl BI BB c9 
$632B: Ad FÖ BF 8E B8 CD AC Ba 
66328: BD AB AD A9 AB 91 Ad 38 
S633%: BO 50 Ad BC BL BB CO 1 
56338: FB BA C9 B2 DO EB 85 #9 
56348: Ad BB Bl GÖ 85 dA Cs Bl 
96348: BB 85 95 CY9 CO BO DA C9 
$6359: B2 90 DE AB BA Bl BB c9 
$6358: 2B BB CE C9 18 96 CA BA 
$6366: BA BA BA Cs 18 71 BO 85 
66368: B3 C9 Bl 98 BC CI CA 90 
$6378: 19 C9 DO BB BF 09 10 85 
$6378: 63 AE 8B CÖ AE SB Ch 18 
$6380: 90 BB BÖ 51 AE 83 CO AE 
$6388: 83 CO AD BA 84 B2 A5 69 
$6396: C9 Öl DO ÖF SE B3.C0 Bl 
$6398: B2 91 Ö4 C8 DE FY SE d2 
$63Ad: C9 FB dD BE B5 CO Bl dA 
$63A8: 91 B2 CE DE FY SE BA Co 
$63Bß: 18 AB dD AS dd 31 dB A5 
$63B8: 08 30 dB AD 81 CO AD 81 
$6300: Ch 98 12 A5 07 18 B8 AD 
$63C8: 83 Ch AD 83 CO 96 ds AD 
$63D9: 8B Ch AD 8B CO SE B8 ch 
$63D8: GH Bi BO dd 9 ee 


SLOTRAMDISK.HELLO 


18 PRINT CHR$ (4)"BLOAD SLOTRAMDISK" 
11 5S= 4A: REM Slot 4; Werte 1-7 

12 POKE 24739,S: REM Slot S 

13 POKE 2481,96: REM RTS 

14 CALL 24736: REM INIT J/N 

15 PRINT "ERLEDIGT" 

lg PRINT CHRS (A)"CATALOG, SS 


13 


Een"... m -arero-e 


14 


SLOTRAMDISK. 


(Quellcode nur vom Driver) 


SBAA: AC AA 69 
6BA3Z: Ba 


ORG $EBAB 
JMP SLOTPOKE 


SLOT HEX B4 


SLOTRAMDISK 


RAN-Diskdriver für 64K-Karte 
für Apple IIe (DOS 3,3) mit 
Balfer-Interface. U. Stiehl '85 
Init-Programm aus Platzgründen 
nicht abgedruckt. Kompletter 


Quellcode auf Peeker-Sammeldisk 


Eigentlicher Driver: relokativ! 


caßB: 
caß3: 


CAB6: 
c4aß8: 
CABA: 
CAD: 
CAßF: 


c4ll: 
G4l4: 
C4l6: 
6419: 


GAlB: 
GA: 


CAIF: 
c4A2l: 


G423: 
c426: 


C429: 
GARB: 
CARD: 
CARF: 
C439: 


CAS2: 
C434: 
G436:; 
C438: 
CA5A: 
Das: 


2c 
ac 


84 
85 
8E 
84 
85 


AD 
85 
AD 
85 


AB 


c9 
PB 


38H 
ac 


AD 
AS 
31 
38 
BO 


AB 
Bl 
c9 
Pß 
c9 
Do 


2 
59 


48 
49 
B9 
DB 
öl 


2 
87 
12 
d8 


öl 
DB 


ad 
BF 


B8 
B4 


öD 
ad 
#0 


50 


dc 
80 
81 
BA 
BR 
EB 


cp 
FF 


co 


c# 
co 


c9 
BD 


436 
437 
438 
439 
449 
441 
442 
443 
444 
445 
446 
A4AT 
448 
449 
45B 
451 
452 
453 
454 
455 
456 
457 
458 
459 
A6H 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
47ı 
472 
473 
474 
475 
A768 
477 
478 
479 
480 
481 
482 


*+ EA Kr HKKEKF—KGEHKH 


ORG 
#* 

IOBL EQU 
L0BH EQU 
AUXL EQU 
AUXH EQU 
BUFL EQU 
BUFH EQU 
BANKFLAG EQU 
ROMFLAG  EQU 
RDWRFLAG EQU 


* Sprung zur 
* ROM, falls 
* eingegeben 
* 


RESET EIT 
JMP 


$CcA00 


ZERO+$90 
ZERO+$G1 
ZERO+892 
ZERO+$B3 
ZERO+$94 
ZERO+$85 
ZERO+$#7 
ZERO+$08 
ZERO+$99 


‚36308! 


Reset-Adresse im 
aus Versehen PR#5 


wurde 


$c982 
SFF59 


;Raset 


* IOB-Pointer in Mainzp + Auxzp 


* 


ENTRY STY 948 
STA $49 ;Mainzp! 
STX $c999 ‚AUXZP 
STY IOBL 
STA IOBH ;Auxzp! 

*+ 

% Rette LÜ-Status 

* 
LDA $c#ll ;BK1/2 
STA BANKFLAG 
LDA $CP12 ;ROM/RAM 
STA ROMFLAG 

3 

* Pseudo-Disk-Slot? 

* 

SLOT? LDY #581 
LDA (IOBL),Y  ;Slot 


* 


* Per absolute Adresse gepokt!!! 


* 

SLOTPOKS CMP 
BEQ 

* 


+$40 
RDWR? 


‚Slot 4 


> Zurück zur normalen Rwts 


* 


RWTS STX $Cd8 ;MAINZP 
JMP $BDd4 ;‚Rwts 

SE 

* Drive-Error 

* 

IOERROR LDY #$0D 
LDA #$4% ; I0O-Err, 
STA (I0BL),®Y 
SEC ‚Carry! 
BCS EXBRANCH ; IO-Error 


* 


* Befehl: 1l=Read oder 2=Write? 


* 

RDWR? LDY #$0C 
EDA LT OBEISH ‚Befehl 
CMP_ #$01 ;Read 
BEQ PUFFER 
CMP_ #892 :Write 
BNE IOERROR 


* Pufferadresse: $9290-$BFPß 


* 


PUFFER 


KERKFKRFKFKHK HH THAI FI HA DH EEE I 9 + 


* 


* Bank 1? $c#dd -> $D9dd 


* 


STA 
LDY 
LDA 
STA 
INY 
LDA 
STA 
CMP 
BCS 
CMP 
BCC 


RDWRFLAG 
+H08 


(IOBL),Y 
BUFL 


(IOBL},Y 
BUFH 
#$CQ 
IOERROR 
+$02 
IOERROR 


:RD/WR 


;Puff—L 


;Puff—H 


‚>5C996? 
;No LE! 
;<$0208? 


‚Aero-P. 


Track und Sektor in Bereich 


der $4K-Karte umwandeln 


$19 
$11 
$12 
$13 
$14 
$15 
$16 
$17 
$18 
519 
$1A 
$1B 
$1C 
$1D 
$1E 
$1F 


ee ee be Dil Wie ia ler Rise Wie le Wr Dre Slaee ie Wize 


BANK1? 


* 


EXBRANCH 


* 


BANK2 


* 


$0008 (nur teils) 
1998 
$2000 


3009 
$AapBo 
$5909 
H6HBd 
$7008 
H8B98 
$9908 
$Add® 
$B20% 


$Cc909 wird Bkl $DPd9 


$D808 Bk2 
$EBßß BR2 
$F088 Bk2 


LDY +94 
LDA {IOBL},Y 
CMP_ #829 
BCS TIOERROR 
CMP_ +#$1® 
BCC IOERROR 


ASL 
ASL 
ASL 
ASL 


INY 

CLC 

ADC (IOBL),Y 
STA AUXH 

CMP #$ßB1 

BCC IOERROR 


CMP_ #+$CQ 
BCC READ? 
CMP _ #$Dß 
BCS BANK2 


ORA 


STA AUXH 
LDX $CB8B 
LDX $CosB 
CL 

BCC READ? 


BCS RAMEXAIT 


LDX $C983 
LDX $C983 


+0 
AUXL 


RDWRFLAG 


#1 
WRITE 


nach Main 


$C993 


(AUXL),Y 
Y 


{BUFL) , 


READER 
$0982 


ZURUECK1 


; Track 
;>$1F 
‚<$19 


;shiften 


:Y=$ß5 
‚Sektor 


‚>=$9189? 


:$cAB® 
;<$cAdg 
;$DBB9 
;>=$DBpB 


+)00010090 ;Cx->Dx 


‚stets 


‚I0O-Error 


;1=Read 


‚ AUXRD 


;MAINRD 
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* Write = Ma 


* 

WRITE STA 

WRITER LDA 
STA 
INY 
BNE 
STX 


* 

ZURUECKI CLC 
LDY 
LDA 
STA 


LDA 
BMI 
LDA 
LDA 
BC 
ZURUECK2 LDA 
BPL 
LDA 
LDA 
BCC 
ZURÜUECK3 LDA 
LDA 
* 
RAMEXIT STXA 
ARTS 


Spple 


in nach Aux 


$CHB5 : AUXWR 
(BUFL),Y 
(AUXL),Y 


WRITER 
$c0B4 :MAINWR 


‚okay! 
+$ÖD 
#629 
\LOBE),Y ;o.Fehler 


ROMFLAG 
ZURUECK2 

$Scösı 

$cöst 

RAMEXIT 

BANKFLAG 
ZURUECK3 

$C983 ;BK2 
$c983 ı RDWR 
RAMEXIT 

$cHsB ;BKl 
$CA8B ı RDWR 


SchH8 :MAINZP 





zu langsam? 


Die TempoHexe ("SpeeDemon"”) macht den Apple 


I, II+ und Ile so schnell wie 


die populären 16bit 


Rechner. Die TempoHexe beschleunigt alle Pro- 


gramme bis zu 31/2 mal - abs 


olut ohne jede Soft- 


ware-Änderung! Einfach einstecken, einschalten 


Ba (e)-} 


Mehr Informationen 
und Händleranfragen bei: 


Apple und 
kompatible Gomputer 


16K, Z80, Diskcontroler je 


R. Alverdes 
Schwarzwaldsir. 8a 
7602 Oberkirch 
Tel.: (0 7802) 37 07 
Telex: 752637 sfe d 


Katalog gegen DM 1.- 
in Briefmarken. 


Wir haben die neuste 
Software und Peri- 
pherie für den Apple 
il, II+, Ile und Mac. 


80 Zeichenkarte mit Softswitch 


2 Zeichensätze 
Motherboard 48K ohne 
Firmware 


Erphi-controler mit Autopatch 


Siemenslaufwerk F 122 
Philips X3134 2x80 Track 
TEAC FD-55B 2x 40 Track 
TEAC FD-55F 2x80 Track 
Megaboard (Mainboard XT) 
Color Graphic Card 

Drive Controler 
Monochrome Monitore 
Farbmonitore 

Tastaturen für IBM und Appl 


e 


Versand nur per Nachnahme oder Vorkasse 


Weiteres Zubehör für Apple und IBM gegen 


frankierten Rückumschlag. 


Ulf Mohwinkel Electronic 


Berliner Straße 73 
5090 Leverkusen Fettehenne 
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ZUSATZ-KARTEN: 


V-24-Schnittstelle .....--.....199,- Z-80-Karte ...222222ca22000. 139,- 
80-Zeichen-Karte m.Softswitch 236,- 16 K-Language-Karte ......-.. 138, - 
Centronics-Karte von Epson für Graphik .. - . 210,- lür Text... 148,- 
Centranics-Schnittstelle lür 2 Drucker gleichzeitig ......2--esse ern: 129, - 
ENTER NE STE ne enenemmemnmemee 198,- 
Super-Eprommer 239 

belegt keinen SIöt, incl. Software für 2708-27128 cursecuusc. a. 
EHRE eine eeeeeisistetnieteininen een auf Anfrage 

Floppy-Controller 

FOC 4 für alle Laufwerke ....... 199,- Bausatz wielinks ....:::2..,4.,; 179,- 
ee wie oben incl, Prom u. ENOM Sasse einen 130,- 


„ZOTd utopatch-Controller {Erphi Controller) 


x A bis 2 -Disk, keine Patch-Disk notwendig, Patch DOS 3.3, Diversi- 
DOS 2-C, 4-G (DD MOVER), Pascal 1,1, Pascal 1.2, CPM 2.2, u | 
EEE: H Sie können die Laufwerke untereinander mischen 98, = 


Joy Stickosıxe .. 59,- Netzteil5A ..... 149, - 





Gehäuse für1 5% SimlineLaufwerk en elefelatete ea ee 
Gehäuse für 2 5%" Slimline Laufwerke mit Platz für ein Netzteil ......... 159,- 
Gehäuse für 23%" Siimlins Laufwerke mit Platz für ein Netzteil 2.2.2...» 79,- 
IBMF-Gohliuse oc ae an en eh EEE 229,- 
Floppy-Kabel 34pol. für 2 Laufwerke mit Shugart-Bus „ses ser een 35,- 


Preh Commander Keyboards 
Wir bieten Ihnen die Preh-Qualität auch für Apple. AK 88 Spez. mit Gehäuse, Än- 
schlußkabel, Zehner-Tastenfeld, dt. Zeichensatz, onderkusten fiir ‚e 
Chr-Codes und Recshenlunktionen „vr 2sssssnenennennan an nn nn 339, " 
Preh Commander Keyboard AK 87, frei ProgruennNerhar" 

bis zu 10 Ebenen, pro Taste bis zu 250 Zeichen ........ ‚nur Y, z 


TEAC 3%" Laufwerk FD 3 2 f579,- 


Speicherkapazität 1 MB, (formatiert 640 KB) jetzt für nur 2.2... 





Nochmalige Preissenkung bei TEAC: 





TEACFDS5A1x40 Track ..... 498,- TEACFDS5B2x40 Track ..... 579,- 
TEACFDSSE I x80 Track ..... _535,- TEACFDSSF2x80 Track ..... 638B,- 
Philipps Slimline Floppy X3134.A, 2480 Track solange Vorrat... -.».--- nur 569,- 
ERBERE = OU TIBCR, 7 BalMt, Da a are ha la I Rn EN grade ArArargr ae 490,- 
Son VE LAUTER sn nnd nur 799,- 

Sony Laufwerk für IIc .......... auf Anfrage 
Apple®- ompatibles Laufwerk Incl, Gehäuse +Kabel „..unnnenceeun nn 9,- 

EPSON DRUCKER 

EPSON FABO ....4.u4 44, 1670,- EPSONFX100 .....422c420 2159,- 
EPSONRXBO ...:2H2Hc2 200 1079,- EPSONRXBOFT ..:::242400: 1295,- 
Patch-Diskette für SONY 3%" Laufwerke -— ermöglicht die Anpassung an Il/lle und 
kompatible Compuler ........»- 80,- Manual vorab 15,-DM (wird beim Kauf 
der Patch-Diskette angerechnet). dto. für 5%" Laufwerke .......- 69- 


Disketten Döb&Böd SS/YDD 108t. 62,- 10 Disketten 1.Sony 3%" Laufw. .150,- 


Akustikkopplar AK 300 mit FTZ-Nr. incl. Netzteil ...........2....0... 549,- | 


Die Microfloppy mit Zukunft: 


Speicherkapazität: 2x 1 MByte for- 
matiert: 2x 640 kdyte. Anschlußfertig 
mit FROM-residenter Patchsoftware 
für GP/M 2.2, Apple DOS 3.3, Diversi- 
DOS 2-C, 4-C (DD MOVER), Apple 
Pascal 1.1, Pascal 1.2, Pro-DOS 
1.0.1, 1.1, 1.1.1 zum 
Preisvon :acassans 

Power Version ........ 1740,- 


10MBWinchester 4490,- 





Sonderangebot 
Disketten 3%" DS DD, 10 Stück 


Zum Preisvon..ue. are 


Gesamt-Preisliste anfordern! Preise inclusive gesetzlicher Mehrwertsteuer. 


Ueding electronics 


Holtewiese 2 DFÜ 02373/66877 
5750 Menden 1 Tel. 02373/63159 
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PPLEII PASCAL 


APPLE Betriebssystem und 
Sprache 


Erstes deutsches Referenzwerk sämtlicher Befehle 
und Systemroutinen von Apple II Pascal — mit Adden- 
dum einschließlich Version Pascal 1.2! 


Gültig für Apple II, I Plus, Ile einschließlich der 
128K/80 Zeichen-Konfiguration. 


Betriebssystem kommentiert ausführlich und in 
Deutsch Funktion und Benutzung der fast 60 System- 
routinen des Apple II Pascal Betriebssystems. 


Sprache ist das vollständige, deutsche Referenzwerk 
der „Apple Pascal“-Programmiersprache mit u.a. Infor- 
mationen über professionelle Pascal-Programmierung, 
Turtlegraphics, Programmbibliothek etc. 


Apple II Betriebssystem, 
272 Seiten, DM 49,- 


216 Seiten, DM 39,- 


Pascal 1.2 Addendum, etwa 100 Seiten, 
DM 36,- 


ı APPLE II - 
i Anwenderhandbuch 
(L. Poole) 
Erst mit Hilfe dieses Leitfadens werden Sie 
| Ihren Apple Il erfolgreich einsetzen, denn 
i Text und Bildmaterial gehen weit über das 
hinaus, was herstellerseitig an Literatur 
angeboten wird, 


416 Seiten, Softcover, DM 56,- 


APPLE II PASCAL - 

| Eine praktische Anleitung 
(A. Luehrmann, H. Peckham) 
Unentbehrlich für alle, die die Programmier- 
sprache PASCAL lernen wollen und 
Zugang zu einem Apple-Computer haben. 
544 Seiten, Softcover, DM 59,- 


I Computer für Kinder 
(Sally Greenwood Larson) 
Ein Buch für Kinder, ihre Lehrer 
und Eltern. 
| „Computer für Kinder“ richtet 
1 sich an Kinder im Alter von 8bis Mo 
13 Jahren, für deren Interesse an |. 
| Computern dieses Buch bewußt 
| 1 geschrieben wurde. 
Unterhaltsam und leicht verständlich. 
A4 quer, Fadenheftung, DM 29,80 


In Vorbereitung: Addendum Pascal 1.2, ein 
Zusatz zum Buch „Betriebssystem“ für 1.2-Benutzer in 
Apple II Sprache, Deutsch. 


„Nach Unterlagen von Apple Deutschland hergestellt“ 


te-wi Verlag GmbH 


Ge HE 
Weiterführende Literatur... 


LOGO - 

Jeder kann programmieren 
(Daniel Watt) 

Buch des Jahres in den USA. Für die 


A] Computer C64, ATARI, APPLE I, IBM-PC 


und TI-99. 

Hochwertiges Textbuch für Logo-Kurse für 
zu Hause und im Lehrbereich. 

AA, DM 59,- 


APPLE II - Bewegte 3D-Graphik 

(Phil Cohen) 

Selbstentworfene Graphiken und Dia- 
gramme — animiert oder als Standbilder - 
eben oder räumlich: alle erforderlichen 
BASIC-Programme mit Erklärung finden 
Sie in diesem Buch. 

ca. 190 Seiten, Softcover, DM 49,— 


] Apple Maschinensprache 


Für BASIC-Programmierer der einfachste 
Zugang zur Muttersprache des Apple. Wesent- 
lich schnellere Maschinenprogramme, direkte 
Manipulation des Mikroprozessors 6502 im 
Apple - als Brücke dorthin benötigt dieses 
Buch nur die drei BASIC-Befehle, POKE, 


= | CALL, PEEK. D. Inmar/K. Inman. DM 49, — 


Noch im Programm: 
6502 - Programmieren in Assembler DM 59,- 
VisiCalc, 50 Programme auf Diskette, DM 79,- 


In Vorbereitung: 
Macintosh Programmier-Handbuch DM 59,- 











PLOT 2.0 





Ein komfortabler Funktionsplotter 


von Hans-Martin Eng 


Kennen Sie auch das folgende Problem? Vor Ihnen liegt eine mathemati- 
sche Funktion und Sie können nichts damit anfangen. Hilfreich wäre es 
jetzt, wenn man wüßte, wie deren grafische Darstellung aussieht. Wer 
jedoch schüttelt sich eine fertige Kurvendiskussion aus dem Handgelenk 
und hat dann auch die Gewißheit, daß alles stimmt? Und wer wollte schon 
die Funktion Punkt für Punkt mit der Hand malen? Aber da Sie einen 
Apple besitzen, kann ich Ihnen Abhilfe versprechen. Das nachstehende 
Plotprogramm nimmt Ihnen das Zeichnen ab. 
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Was kann PLOT 2.0? 


Bei der Erstellung wurden folgende Anfor- 
derungen berücksichtigt: Das Programm 
soll 

— die Eingabe der Funktion während des 
laufenden Programms gestatten, 

— weitgehend menügesteuert ablaufen, 

— sogenannte Scharparameter {r, s und ti) 
unterstützen und die Funktion in Abhän- 
gigkeit von diesen Parametern mehrmals 
zeichnen, 

— die Funktion in einem üblichen Achsen- 
Kreuz darstellen, das mit einer Skalenein- 
teilung versehen ist, 

— „Pole“ und andere Stellen, an denen die 
Funktion nicht definiert ist, intern ab- 
fangen, 

— während die Funktion gezeichnet wird, 
eine Zusammenfassung wichtiger Daten 
auf der Textseite bereithalten und auf Ta- 
stendruck wiedergeben, 

—- auf Druckern mit Grafikinterface die Gra- 
fik nebst sämtlichen verwendeten Darstel- 
lungsparametern ausdrucken. 

Unter Berücksichtigung dieser Vorgaben 
entstand das Applesoft-Basicprogramm 
PLOT.2.0 mit dem Assemblerprogramm 
PLOT.B. PLOT.2.0 lädt sich selbst in den 
Speicherbereich oberhalb der ersten Gra- 
fikseite ($4001), dann PLOT.B in den Be- 
reich zwischen $0DO0 und $0EOE. Das 
Programm belegt ca. 13400 Bytes. Dabei 
ist der Speicherbedarf der Variablen und 
des Maschinenprogramms nicht berück- 
sichtigt. 


Die Theorie des Plottens 


Hier einige Erläuterungen zum Programm 
und den darin auftauchenden Formeln und 
Algorithmen: 

Der Zusammenhang zwischen Bildschirm- 
und normalen Koordinaten ist linear. So 
können die Bildschirmkoordinaten als ein- 
fache Funktionen xs (x), ys (y) wiederge- 
geben werden. Allgemein kann der Zu- 
sammenhang zwischen Bildschirm- und 
Normalkoordinaten wie folgt definiert 
werden: 


Ss: Schirmkoordinate 


<= n: Normalkoordinate 


De le 
Indizes: H-größter Wert, L-niedrigster Wert 








Eine einfache Umformung liefert: 


SSL 
Nun, 


NuSı Syn, 


oz Nun, 





Im besonderen gilt im Falle des Hires- 
Bildschirms für die x-Koordinaten: 


Ss, = 2/1;s, =0O; nn, —xXH, xL 
und für die y-Koordinaten: 


Su = 0; Ss, = 191; ny,nL > YH, yL 


Nun erfolgt noch die Umbenennung der 
Terme. Der Faktor vor dem n wird durch 
MX oder MY ersetzt, der Summand durch 
BX oder BY (analog zur Normaldarstellung 
der Geradengleichung: y = mx + b). So- 
mit erhalten wir die Darstellung der Funk- 
tionen XS (X) und YS (X) in Zeile 3520 des 
Programms. 





Die Halbkreisfunktion F(X) = SOR ({R#R- 
X x X) im Intervall [-6,6]. Der Parameter R 
nimmt die Werte 2 und 4 ein. 


Vielfältige Darstellungsmöglichkeiten 


Der Darstellungsmaßstab wird durch Ein- 
gabe der Darstellungsgrenzen festgelegt. 
Da man jedoch beispielsweise bei der 
Halbkreisfunktion gerne einen Halbkreis 
sehen möchte und nicht irgendeine (wenn 
auch hübsche) Ellipse, wurde die Möglich- 
keit geschaffen, den Maßstab der x-Achse 
dem der y-Achse anzupassen. Diesen 
Wunsch signalisiert man durch die Einga- 
be „O,O“ oder „‚,“ für eine Achse. Das 
Ergebnis ist jedoch oft noch nicht befriedi- 
gend. Daher können noch nachträglich 
kleine Veränderungen am Maßstab vorge- 
nommen werden. Man kann die Achsen 
strecken oder stauchen und außerdem 
das Verhältnis der positiven zur negativen 
Teilachse beeinflussen. Das geschieht 
durch die Eingabe zweier Zahlen. Bei der 
Streckung gibt man an, in welchem Ver- 
haltnis die alten zu den neuen Grenzen 


stehen sollen (2,1 heißt, daß die neuen 
Grenzen halb so groß wie die alten sind). 
Ändert man das Verhältnis der Teilachsen 
zueinander, bleibt der Maßstab unberührt. 
Nachdem die Anpassung durchgeführt ist, 
verhält sich der positive Teilast zum nega- 
tiven wie die zuerst eingegebene Zahl zur 
zweiten (z.B. vorher: XL = -3, XH = 3, 
Eingabe: 2,1; danach: XL = -2,XH = 4). 
Die Funktion selbst wird wie eine Basic- 
Zeile eingegeben, wobei das „DEF FN 
Y(X) =" schon vorgegeben ist. Hier ein 
Beispiel: 


Y=SIN(X)«T 


Nach der Eingabe werden Sie gefragt, ob 
alles stimmt. Dies ist der kritischste Punkt. 
Ein Syntaxfehler führt zum Programmab- 
bruch, wenn die Funktion zum ersten Mal 
verwendet wird. 


Scharparameter 


Im Programm sind die Variablen R, Sund T 
(r, s und t) als Scharparameter vorgese- 
hen. Diese machen meines Erachtens 
manche Funktionen erst Interessant. Be- 
stes Beispiel: f(x) = exp (tx). Für jedes t 
hat diese Funktionenschar einen gemein- 
samen Punkt in (0,1). Oder fx) = sin (x-t): 
Ist t ein gerades Vielfaches von sm, sind 
beispielsweise die Schaubilder deckungs- 
gleich. Jeweils nach der Eingabe einer 
Funktion wird gefragt, ob, und wenn ja, 
welche Parameter in der Funktion verwen- 
det werden. Wird speziell T verwendet, 
bietet das Programm die Option an, T in 
einer FOR-NEXT-Schleife zu durchlaufen. 
So kann man sich lästiges Neueintippen 
sparen. 

Das Programm legt die Parameterwerte in 
einer Art Stack ab. Dazu wird der Pointer | 





Die Exponentialfunktion F(X) = S x EXP (- 
R#*XxX) x COS (T x» X) zwischen den 
Grenzen -8Sund&(R=01;5=1;T=2). 
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erhöht, wenn eine Kurve bis zum rechten 
Rand durchgezogen ist. Dann kommen die 
Parameterwerte in das Array P und die 
Stelle (&, I). I wird wieder auf 0 gesetzt, 
wenn der Darstellungsmaßstab oder die 
Funktion geändert oder die Grafik gelöscht 
wird. Beim Ausdrucken werden die Ele- 
mente des Arrays bis zum aktuellen Poin- 
terwert ausgegeben. 

Wenn Sie die Kreiszahl ı oder die Euler- 
sche Zahl e benötigen, müssen Sie diese 
nicht als Konstanten in die Funktion 
schreiben. Die Variablen E und PI werden 
am Anfang des Programms auf den richti- 
gen Wert gesetzt, Sie können sie also in 
die Funktion einbauen. Ebenso stellt das 
Programm den Briggsschen (Zehner-)Log- 
arithmus als FN LG(X) zur Verfügung. 





SEELE, 






Die Funktion F(X) = COS (X-T x PI/3) im 
Bereich -6,3; 6,3. Der Parameter T durch- 
läuft die Werte O0, 1,2,3,4, 5. 


Die Achsen 


Das Unterprogramm zum Achsenzeich- 
nen (4900 ff.) zieht die y-Achse zwischen 
xs(0O), O und xs(O), 191; die x-Achse zwi- 
schen 0, ys(0) und 271, ys(0). Dann wird 
festgestellt, ob eine der Achsen am Rand 
des Bildschirms zu liegen kommt. Ist dies 
der Fall, wird eine Korrekturvariable ge- 
setzt, die dafür sorgt, daß der Skalenstrich 
um zwei Bildschirmraster vom Rand weg 
verschoben wird. Dann wird der betrags- 
größte Wert der Darstellungsgrenzen ei- 
ner Achse an ein Unterprogramm (3620 
if.) übergeben. Dieses sorgt dafür, daß der 
längere Teilast einer Koordinatenachse 
maximal zehn Skalenstriche aufweist. 


Druckerausgabe 


Die Printroutine (5100 ff.) ist auf einen 
EPSON FX-80 mit Vollgrafikinterface zu- 
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RR 
RL 


geschnitten. Daher erkläre ich besser, was 
die Steuerbefehle bedeuten: 

PRINT CHR$(9); CHR$(16) stellt den 
Command-Character des Interface auf 
CHR$(16) um. 

ESC M stellt Schönschrift mit 96 Zeichen/ 
Zeile ein. 

ESC ! setzt den linken Rand auf Spalte 6. 
ESC Q setzt den rechten Rand auf Spalte 
90, 

ESC A setzt einen höheren Zeilenabstand. 
ESC D definiert Tabulatorpositionen. 

ESC N bewirkt, daß der Drucker die Perfo- 
ration überspringt. 

CHR$ (9) befördert den Druckkopf auf die 
nächste Tabulatorposition. 

PRINT CHR$ (16);"G“ veranlaßt das In- 
terface, die Grafik in Normalgröße auszu- 
drucken. 


Fehlerbehandlung 


Zur Fehlerbehandlungsroutine muß nicht 
viel angemerkt werden. Zuerst wird eine 
Maschinenroutine aufgerufen, die ein 
„Überlaufen“ des Stacks verhindert. Dann 
wird die Art des Fehlers überprüft. Wurde 
Ctrl-C gedrückt, springt das Programm ins 
Hauptmenü ab Zeile 1800. Anwenderfeh- 
ler beim Input bewirken dasselbe wie im 
normalen Betrieb. Tritt ein „Division by 
Zero“-, „Ilegal Quantity“- oder „Over- 
tlow“-Error auf, wird ein neuer Anfangs- 
wert von X gesetzt und die Zeichenschlei- 
fe neu gestartet. Bei allen anderen Fehlern 
wird auf Textdarstellung umgeschaltet und 
eine Fehlermeldung ausgegeben. Ach- 
tung! Tritt ein Syntaxfehler in Zeile 1680 
auf, so ist meist ein Eingabefehler bei der 
Funktionseingabe schuld. Prüfen Sie des- 
halb genau nach, ob alle geöffneten Klam- 
mern auch wieder geschlossen werden. 


Programmverschiebung 


Die Zeilen 5600 ff. treten in Aktion, wenn 
das Programm nicht im Speicherbereich 
oberhalb der ersten Grafikseite liegt. Dann 
wird der Execfile PLOT.PROTECTOR 
aufgerufen. Dieser Execfile sollte die fol- 
genden Befehle enthalten: 

POKE 103,1:POKE 104,64:POKE 16384,0 
(setzt den Pointer zum Anfang des Ap- 
plesoftprogramms auf $4001 und die 
Adresse $4000 auf 0.) 

LOAD PLOT.2.0, CALL 54514 (diese 
Routine setzt die übrigen Pointer richtig), 
RUN. 


Yaralik g4 








Die Funktion F(X) = WX mitT = -Tund 1 
im Intervall [-10, 10]. 


Alternativ dazu kann man auch ein kurzes 
Programm schreiben, das den Execfile di- 
rekt aufruft. Das kann erhebliche Zeitvor- 
teile bringen, da das zweimalige Laden 
des Hauptprogramms doch einige Zeit in 
Anspruch nimmt. 


Die Assemblerroutinen 


Das Assemblerprogramm gliedert sich in 
vier Teile auf. Der erste Teil besteht aus 
dem Unterprogramm, das die darzustel- 
Iende Funktion einliest, in den Basiccode 
übersetzt und in die Zeile 2 des Basic- 
programms überträgt. Der zweite Teil 
übersetzt den Inhalt dieser Zeile zurück in 
ASCII-Code und schreibt alles in einen 
Puffer. Der dritte Teil ist eine Hilfsroutine 
für die Fehlerbehandlung in Zeile 5500 ff. 
Der vierte Teil besteht aus Tabellen. Den 
Eingabeteil (Zeilen 45 bis 95) übernahm 
ich aus einem im CHIP Special 2/80 veröf- 
fentlichten Programm. Ich erlaubte mir, 
das dort nur vom Miniassembler disas- 
semblierte Programm mit einem besseren 
Assemblerprogramm in eine lesbarere 
Form zu bringen, Außerdem mußte ich 
einen relativ bösen Tippfehler des Autors 
korrigieren. Mir passierte es nämlich zu 
Anfang, wenn sich im Speicher noch eine 
alte, längere Funktion befand, daß diese 
alte Funktion nicht vollständig gelöscht 
wurde. Dies führte zu Syntaxfehlern im 
Basicprogramm. Des weiteren fügte ich 
Zeile 45 ein, da das sich anschließende 
Rückübersetzungsprogramm sehr regen 
Gebrauch von den Registern macht. 

Diese Routine beginnt mit Zeile 100. Sie 
nimmt ein Byte aus Zeile 2 und verzweigt 
dann, je nachdem, ob es sich um ein Ba- 
sic-Token oder ein ASClIi-Zeichen han- 
delt. Ein ASCII-Zeichen wird direkt in den 
Puffer geschrieben. Bei einem Token wird 
dessen Wert mit denen der Tabelle 2 ver- 
glichen, dann wird aus Tabelle 3 der zuge- 
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hörige Pointer entnommen. Dieser Pointer 
zeigt auf das Leerzeichen am Anfang der 
zugeordneten Zeichenkette. Das nächste 
Leerzeichen signalisiert das Ende des 
Strings. Ist die Funktion als Ganzes über- 
setzt, steht in STRPNTL die Länge des 
Funktionsstrings im Puffer. Zum Schluß 
werden die von Zeile 45 geretteten Regi- 
ster wieder zurückgespeichert, dann 
springt das Unterprogramm wieder in das 
Basicprogramm. 

Eine Bemerkung zur Token-Tabelle. Ich 
verzichtete bewußt darauf, alle möglichen 
reservierten Wörter zu berücksichtigen. 
Ich sehe nicht ganz ein, was ein FRE{Ö) in 
einer mathematischen Funktion zu suchen 
hat. Wer jedoch Wert auf irgendeinen 
Exoten legt, sollte diesen zur Tabelle 1 


PLOT.2.0 
1  GoTo 1809 
a nee 


DEFEFNY (X) = her 


= Er Ta na 


Eu ann ww 


an ee 


3 RETURN 


4 REM Bitte erhöhte Vorsicht beim Ändern der ersten 


Programmzeilen walten lassen! 


5 REM Dies kann zu bösen Überraschungen bis hin zum 


Programmverlust führen! 
1808 IF PEEK (194) < 64 THEN 56ß® 


1818 ONERR GOTO 5509: REM diverse Konstanten 
1628 PL = ATN (1) * 4:E = EXP (1):CH% = 36:CL% = - 


EEE 


ee 


hinzufügen, dann abzählen, ab dem wie- 
vielten Byte nach der Startadresse der Ta- 
belle 1 das Space steht und diesen Wert 
zur Tabelle 3 hinzufügen. Anschließend ist 
noch in Tabelle 2 das Token einzutragen 
und der Wert von $0D6B um 1 zu erhö- 
hen. Findet die Übersetzungsroutine ein 
unbekanntes Token, wird ein „?“ in den 
Puffer geschrieben. 

Die Maschinenroutine in den Zeilen 164 
bis 172 erwies sich als nötig, weil manche 
Funktionen (etwa die Halbkreisfunktion) 
über einen weiten Bereich keinen reellen 
Wert annehmen. Treten jedoch solche 
Fehler gehäuft auf, läuft der Stack schein- 
bar über und es tritt ein „Out of Memory 
Error“ auf. Die genannte Routine bereinigt 
dieses Problem auf einfache Weise. Ich 


PRINT "Gebrauch machen wollen.";: 


habe das Programm selbst durch ein stän- 
diges F(X) = SQR(-1) nicht aus der Fas- 
sung bringen Können. 

SHTABLE schließlich enthält einen kleinen 
Strich als Shape. Dieser Strich bildet in der 
Grafik die Skaleneinteilung. 

So, nun bleibt Ihnen nur noch übrig, das 
Programm in Ihren Apple einzuprogram- 
mieren oder die entsprechende „Peeker”- 
Sammeldiskette zu bestellen. Ich wün- 
sche Ihnen viel Spaß beim Plotten Ihrer 
Funktionen. 

Anmerkung: Beim Eintippen der Zeile 2 ist 
darauf zu achten, daß exakt 228 Doppel- 
punkte getippt werden. Das Zählen kann 
man sich sparen, wenn man die Zeile ohne 
Leerzeichen bis zum ersten Piepston ein- 
gibt. 


GET A$: PRINT 


PRINT "Nach jeder Eingabe werden Sie gefragt,": 
PRINT "ob Eingabefehler aufgetreten sind, Sie": 
PRINT "können dann gegebenenfalls korrigieren." 


PRINT "Während die Funktion gezeichnet wird,": PRINT 
"kann man durch Betätigung einer Taste": PRINT "auf 
den Textbildschirm umschalten. Dort": PRINT "steht 


eine Kurzzusammenfassung wichtiger" 
PRINT "Daten. Nochmaliges Betätigen einer Tas-": 
PRINT "te läßt wieder die Grafik erscheinen." 


PRINT "Wenn Sie <Ctrl-C> betätigen, springt”: PRINT 


"das Programm ins Hauptmenü, Dort kön-": PRINT "nen 


etwa aufgetretene Eingabefehler": PRINT "korigiert 


und die Funktion neu gezeich-": PRINT "net werden": 


GET A$ 


GOSUB 3ßBB: GOSUB 3789: GOSUB 3B6% 
REM Zusammenfassung 


868:KEZ = - 16384: APZ = 3072 HOME : PRINT "Zusammenfassung :" 
1038 HT$ = CHR$ (9):E$ = CHR$ (27):D$ = CHR$ (4):DP$ = PRINT "Die Funktion lautet :'": PRINT : PRINT F$ 
CHRS (16): DIM P(2,29): DEF FN LG(X) = LOG 2) 7 Loc PRINT : FRINT : PRINT "Parameter '";: ON VAL (P$) 
(18) GOTO 1399, 1408, 1419, 1429, 143, 1440, 1450 
1046 ASZ = 3328: IF PEEK (ASZ) < > 32 OR PEEK (ASZ + 2P) PRINT : PRINT "Es werden keine Parameter 
<> 213 OR PEEK (ASZ + 270) < > 57 THEN PRINT verwendet.": GOTO 1479 
D$ ; "BLOAD PLOT B,AU:ASE PRINT "R": GOTO 1478 
1106 POKE 233,13: POKE 232,162: REM SHAPE-TABLE PRINT "S": GOTO 1479 
1110 HOME : PRINT TAB( 16) ;"PLOT.2.0" PRINT "T";: GOTO 1468 
1128 VTAB 16: PRINT TAB( 11);'"Von Hans-Martin Eng" PRINT "R und S": GOTO 147 
1136 VTAB 12: PRINT TAB( 13);"September 1983" PRINT "'R und T";: GOTO 1469 
114$ VTaB 14: PRINT TAB( 15);"Erweitert :" PRINT "S und T";: GOTO 1469 
1158 VTAB 16: PRINT TAB( 14);"Juni/Juli 1984" PRINT "R,S und T"; 
1168 VTAB 18: PRINT TAB( 11):"Letzte Änderungen :" IF RIGHT$ (P$,1) = "K" THEN PRINT " / T in Schleife" 
1178 VTAB 26: PRINT TAB{ 11): "Oktober/Novenber 1984"; PRINT : PRINT : PRINT "Grenzen :": PRINT TAB( 5);"X 


1186 VTAB 21: POKE - 16368,9: GET A$ 
119® HOME : 


1280 GOSUB A7ß9: IF A$ = "N" THEN 1339 
121® HOME : 


PRINT "hochauflösender Grafik auf dem Bild-": 
tschirm dar. Etwa auftretende Polstellen': PRINT 
"werden intern abgefangen, der Darstel-" 

1228 PRINT "lungsmaßstab ist durch Wahl der Darstel-": 
PRINT "lungsgrenzen (relativ) frei festlegbar." 


PRINT "Wünschen Sie eine Kurzeinführung ?": 
PRINT "Betätigen Sie bitte 'J! oder 'N'" 


PRINT "Dieses Programm stellt Funktionen in": 


ERTL 
FRI TABI SATT: 
VTAB 23: PRINT TAB{ 2ß);"Noch Fehler ? ";: GOSUB 


SH 


EN ne Hy 


4700: IF A$ = "N" THEN 1599 


HOME : PRINT "Wo traten noch Fehler auf ? 

PRINT VTAB 6: HTAB 1B: PRINT "1 -— Funktion" 

VTAB 18: HTAB 19: PRINT "2 - Parameter" 

VTAB 14: HTAB 18: PRINT "3 — Darstellungsgrenzen" 
VTAB 18: HTAB 19: PRINT "® — keine Fehler" 

VTAB 23: HTAB 13: PRINT "Betreffende Taste drücken"; 


1238 


PRINT "Die Ludolfsche Zahl (Pi) und die Euler-": 
PRINT "sche Zahl (e) können ebenso, wie!': PRINT 
"Funktionsparameter {r,s,t) in der Funk-'": PRINT 
"tion verwendet werden. Auf diese Weise" 


1248 PRINT "sind Funtionsscharen darstellbar. Die': PRINT 
"Scharparameter werden vor dem Zeichnen'!': PRINT 
"abgefragt," 

125% PRINT "zum Beispiel :": PRINT " Y=R & SIN (2 « PI / 
5* X - T}'" 

1268 PRINT "oder :": PRINT "Y=(X-T1T)/(X=X +) 
(E - EXP(X))" 

1278 PRINT "Der Parameter 'T! kann sukzessive mit": PRINT 
"diskreten Werten durchlaufen werden.":; PRINT "Wenn 
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Sie 'T' verwenden, werden Sie ge-": PRINT "fragt, ob 
Sie von dieser Möglichkeit" 


GET A$: IF VAL (A$) = B AND A$ < > "Gt OR VAL (A$) > 
3 THEN 156® 

ON VAL (A$) GOSUB 300%, 37PBB, 3060 

GOTO 1359 

REM Jetzt wird gezeichnet 

GOSUB 441: REM Parametereingabe 

HGR : POKE - 16392,9: POKE 253,2: HCOLOR= 3: SCALE= 
l: GOSUB 4990 

x = B:ST= 1 / MX: REM Initialisierung 

IF RIGHT$ (P$,1) = "K" THEN FOR T = TB TO TI STEP 
TS: REM Starte T-Schleife 

GOSUB 4698:XA = XL: REM Generiere Liste in Textseite 
X= XA: IF X > XH THEN 17598: REM Start x-Schleife 

IF PEEK (KEZ) > 123 THEN GOSUB 4799: REM umschalten? 
VTAB 23: HTAB 14: PRINT X; SPC( 18);: REM x in Liste 
IF X6 =  THEN Xß = FN XS(X):Yß = FN YS( FN Y{X)): 
GOTO 1758: REM Ausgangspunkt 
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1699 
17098 
1719 
1729 


173 


1749 


175 
1769 


1779 


1789 
1799 
1899 


1818 
1829 
1839 
1849 
1859 
1869 
1879 
1889 
1899 
1999 


191® 
1928 


1939 
1949 
1959 
196% 
1978 
1988 
1999 


2008 
2818 
2528 
2030 
2849 
2050 
2060 
2070 
2088 
2898 
2188 
2118 
2126 
2130 


2140 
2156 
298 
2996 
390 


3018 
3828 


3d5B 
3dAB 
3d5B 
3d6h 
3078 


308% 
3d90 


3199 


311 


312® 
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äl = FN XS(X):YI = EN YS( EN YiX)]: REM Endpunkt 
IF Yi < 8 THEN Y1 =: REM gegen 'Illegal Quantity' 

IF Yl = 1851 THENYL = 191 

IF Yı = 191 AND Yd = 191 OR Y1 = ß AND Yß = Ö THEN 
xXö = 9: GOTO 1758: REM => Pol 

IF Yı = 8 AND Yß = 191 OR Yl = 191 AND Y® = ® THEN 
X0 = ®: GOTO 1688: REM Keine Verbindung zwischen 
Polen 

HPLOT X, Yß TO X1,Y1:X0 = X1:Yß = Yl: REM Zeichnen / 
neuer Ausgangspunkt 

IF X < XH THEN X = X + ST: GOTO 166 

De E#r ep IysRepli 1) = 5 pl 2. 17) 7. REM 
Farameter-Liste 
IF RIGHT$ (P$,1) 
1639 

GET A$: REM Warteschleife 

POKE 253,1: GOSUB 4869: HOME : REM Text / Hauptmenü 
PRINT "Wollen Sie :": VTAB 6: PRINT '1 - 
Darstellungsgrenzen ändern" 

VTAB 8: PRINT "2 - Parameter ändern" 

VTAB 18: PRINT "3 — Funktion ändern" 

VTAB 12: PRINT "4 — Bildschirm säubern" 

VTAB 14: PRINT "5 — Alte Daten auflisten" 

VTAB 16: PRINT '!'&6 - Wieder zeichnen" 

VTAB 18: PRINT '!'7 -— ausdrucken" 

VTAB 23: PRINT ''8 — aufhören” 

GET Ag: IE AS = THEN GOSUB 4889: GOTO 188% 

IF VAL (A$) < 1 OR VAL (A$) > 8 THEN 1889 

ON VAL (A$) GOTO 1929,1959,1980,2019,2949,2076, 
2189,213® 

REM 1 Darstellungsgrenzen 

GOSUB 3869: HGR : POKE - 163982,%: HCOLOR= 3: GOSUB 
4908: GOTO 1799 

REM Eingabe Grenzen/zeichne Achsen und skaliere/Menü 
REM 2 Parametereingabe 

GOSUB 44BB: GOTO 1799 

REM Eingabe Parameter/Menü 

REM 3 Funktionseingabe 

GOSUB 3BA9d: GOSUB 370%: GOSUB 4419: GOTO 1799 

REM Eingabe Funktion/Parameter?/Parametereingabe/ 
Menü 

REM 4 Bildschirm 

I= 6: HGR : POKE - 16302,9: GOSUB 4989: GOTO 1799 
REM Zeichne Achsen und Skala/Menü 

REM 5 Datenliste zeigen 

GOSUB 4689: GOTO 1788 

REM Zusammenfassung / Menü 

REM 6 Zeichnen 

POKE 253,2: GOSUB 4889: GOTO 1629 

REM Grafikseite/Menü 

REM 7 Ausdrucken 

POKE 253,2: GOSUB 48ß9: GOSUB 51ß9: GOTO 179 

REM Grafikseite/Ausdruck/Menü 

REM 8 Programmende 

TEXT : HOME : VTAB 19: PRINT "Hoffe, es hat Spaß 
gemacht I!" 

VTAB 28: HTAB 36: PRINT ''HME"; 

END : GOTO 1798: REM für evtl. CONT 

REM Anfang Subroutinen 

REM Funktionseingabe 

I= : HOME : PRINT "Bitte geben Sie die 
darzustellende": PRINT "Funktion ein !" 

VTAB 18: PRINT F$: VTAB 19: GOSUB 5489 

VTAB 10. ICHLR ELZ= PRINT EI: 2 CAL, EL2. PRINE SV TAB 


"K'" THEN X8 = B: NEXT T: REM s. 


22° PRINT (Ist das richtie 7 "7 LALLICEE 
GOSUB 4769: IF A$ = "N! THEN PRINT "Bitte 
korrigieren !": GOTO 3919 

RETURN 


REM Darstellungsgrenzen 

IF NOT (XL = ® AND XH = B AND YL = Ö AND YH = ß) 
THEN HOME : GOTO 3269: REM alte Werte zeigen 

HOME : PRINT "Bitte Grenzen eingeben! (Anweisungen?)" 
GOSUB 4789: IF A$ = "N" THEN VTAB 17: GOTO 315% 
PRINT : PRINT "Soll der Maßstab der x-Achse dem 
der": PRINT "y-Achse angeglichen sein, geben Sie 
die": PRINT "gewünschten Darstellungsgrenzen für": 
PRINT "e ine Achse ein, für die andere": PRINT 
"einfach 8,8 „" 

PRINT "Werden kleinster und größter Wert in": PRINT 
"falscher Reihenfolge eingegeben, werden": PRINT 
"sie vom Programm vertauscht." 

PRINT 'X-Min, Y-Min sollten immer kleiner oder": 
PRINT "gleich ® , X-Max „ Y-Max immer größer": PRINT 
"oder gleich ß gewählt werden (sonst": PRINT "können 
keine Achsen gezeichnet werden)" 

PRINT "Das Programm setzt daher falsch gesetzte": 
PRINT "Werte auf 9 !" 


PRINT "Sollten Sie nicht ganz mit dem Darstel-": 
PRINT "lungsmaßstab einverstanden sein, Können": 
PRINT "Sie das Verhältnis von negativem zu po-"! 
PRINT "sitivem Achsenabschnitt verändern oder": 
PRINT "die Achsen strecken oder stauchen," 


GET A$: HOME : PRINT "Bitte Grenzen eingeben !" 
VTAB 7: PRINT : INPUT "X-MIN , X-MAX : ";XL,XH 

VTAB 18: INPUT "Y-MIN , Y-MAX : ";:YL,YH 

IF XL XH THEN X = XL:XL = XH:XH = X 

IE IYE YH THEN X = YL:YL = YH:YH = X 

IF YL > ® THEN YL = 

Ie YH ö THEN YH = B 

IF XL ö THEN XL d 

IF AH ® THEN XH d 

IF YL = YH AND XL = XH THEN PRINT CHR$ (7); 
"Eingabefehler ! Bitte wiederholen !": GOTO 315% 

IF YL = YH THEN GOSUB 357% 

IF XL = XH THEN GOSUB 355 

VTAB 13: PRINT "Die Darstellungsgrenzen wurden wie 
folgt festgelegt" 

PRINT : PRINT "Kleinstes X WR GALPSChE BRENNT 
PRINT "Größtes X Mentle SGALL SCLZ: PRINT 

PRINT : PRINT "Kleinstes Y : ":YL;: CALL CLE: PRINT 
PRINT "Größtes Y VEN SCALE OLE: SPRENT: 

PRINT 2 YTAB’ 22: PRINT "Ist das richtie ? ";: -CAEL 
tE3 

GOSUB A7Ad: IE A$ = "J" THEN PRINT : GOTO 3509 
Fer ST NG SS Tre Ten. = T:M Se I WYSe TR = 
I:BY = I: REM Clear Hilfsvariablen 

PRINT "Schwere Fehler ? ";: GOSUB 4780: IF A$ = "J" 
THEN PRINT : VTAB 1: PRINT "Dann bitte wiederholen 
Kir. GOTO 3158 

HOME : PRINT "Kleine Änderungen :" 

PRINT : PRINT " x-Achse strecken ? ";: GOSUB 4788: 
IF A$ = "J" THEN INPUT "Verhältnis ";X98,X1 

PRINT : VTAB 5: PRINT " y-Achse strecken ? ";: GOSUB 
aAT@B: IF A$ = "J" THEN INPUT "Verhältnis ";Yß,Yı1 
PRINT : VTAB 8: PRINT "Nun bitte das Verhältnis + / 
— Achse!'"': PRINT : PRINT " Für x-Achse ? '";: GOSUB 
4708: IF A$ = "J" THEN INPUT " +, - ";MX,BX 

PRINT : VTAB 12: PRINT " Für y-Achse ? ";: GOSUB 
ATBB: IF AS = "J" THEN INPUT " + / — ";MY,BY 

IF (X& = ® AND X1 < > BB) OR (Xl = B AND Xd < > B) OR 
(Yd = B AND YI <> BB) OR (Y1 = PB AND Yß < > B) THEN 
PRINT : PRINT "Nie mit ® strecken oder stauchen !"!: 
GOTO 336% 

VTAB 28: PRINT "Alles 0.,k,? ";: GOSUB 4760: IF A$ = 
"N" THEN PRINT : VTAB 2: PRINT "Bitte wiederholen 

2 SGALESCES: GUTD. 336 

IF > AND Xl < > Ö THEN XL XL /X® *» XL:XH 
XH * Xl 

IF >G AND Yl < > 8 THEN YL YL /Yd = YL:YH 
YH * Yl 

TE >BORBX <> PB THEN XB = XH - XL:X1 MX + 
BX: MX / X1 x XB:XL = - BX /X1l x X 

TE >BOR BY <> BB THEN Yß = YH —- YL:Yl MY + 
BY: MY/Ylx Yö:YL = - BY/Y1lx YO 

HOME : GOTO 326% 


REM Umrechnung Bildschirm 

MX = 279 / (XH — ÄL):BX = - MX x XL 

MY = - 191 / {YH - YL):BY = - MY = YH 

DEF FN XS(X) = INT {MX *& X + BX + „5): DEF FN YS(X) 
= INT (MY # X +BY + .5) 

RETURN 

REM x-Achse an y-Achse anpassen 

FA = 279 / 191:XL = FA * (YL - YH) / R:XH = PA «* (YH 
- YL) / 2: RETURN 

REM y-Achse an x-Achse anpassen 

FA = 279 / 191:YL = (XL - XH) / (2 = FA):YH = (XH - 
XL) / (2 x FA): RETURN 

REM für Skalierung 

XB = INT ( FN LG(X)): IF X® < FN LG(X) THEN XB = X 
#1 

ST=Xd - 1:X8 = EP { LOG (18) # %0):ST= EAP ( LOG 
(18) * ST) 

RETURN 

REM Parameter ? 

HOME : PRINT "Wurden Parameter verwendet ? ";: GOSUB 
ATAB: IF A$ = "N" THEN P$ = '"öd": RETURN 

PRINT : PRINT "Bitte die betreffende Taste für die 
ge-": PRINT "wünschte Kombination von Parametern": 
PRINT "betätigen I!" 

VTAB 7: HTAB 18: PRINT "1 - nur R" 

VTAB 9: HTAB 18: PRINT "2 - nur S" 

VIAB 11: HTAB 19: PRINT "3 - nur T" 

VTAB 13: HTAB 18: PRINT "4 - R und S" 
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VTAB 15: HTAB 19: PRINT "5 Rund I" 

VTAB 17: HTAB 19: PRINT "6 Ss und I“ 

VTAB 19: HTAB 19: PRINT "7 R,S una TI! 

VTAB 22: HTAB 19: PRINT '"BÖ —- keine Parameter" 
GET P$: IF ( VAL (P$) = B AND P$ < > "B") OR VAL 
(P$) > 7 THEN 380® 

HOME : IF VAL (P$) < 3 OR VAL (P$) = 4 THEN 3849 
PRINT "Es wurde der Parameter T verwendet. ": PRINT 
"Soll T mit einer festen Schrittweite": PRINT 
"durchlaufen werden ?"; 

GOSUB A788: IF A$ = "J" THEN P$ = P$ + "K" 
RETURN 


REM Eingabe Parameter 

REM Eingabe von T 

IF RICHT$ (P$,1} = "K" THEN 397 

PRINT : VTAB 4: INPUT "Bitte T eingeben : 
VTAB A: PRINT SPC( 14);:"T = ";T: CALL CL% 
PRINT : PRINT TAB( 29); "Richtig ?"; 

GOSUB 4788: IF A$ = "N" THEN 


RETURN 

REM T in Schleife 

PRINT : VTAB 2: INPUT "Bitte Startwert und Endwert 
von T eingeben : ";T9,Tl 

VTAB 5: INPUT "Nun die Schrittweite :";TS 

IF TS = ® THEN VTAB 7: PRINT CHR$ (7); "Nie 
Schrittweite B !": GOTO 398 

IF TS < 9 THEN 4930 

IF Tı < TO THEN T = T1:Tl T9:TO 

GOTO 4949 

TR Te TI THENOT IS 79:70 Se TI 

Ll = 1:L2 = 7: E05SUB 4750: VTäß 2 

PRINT "T Jaäutt von 2 "end 

PRINFE Krscz 227] 

PRINT " mit Schrittweite : ":TS 

PRINT : PRINT TAB( 198); "Ist das richtig ? ";: GOSUB 
a7d0: IF AS = "N" THEN Ll = 2:L2 = 6: GOSUB 4758: 
GOTO 3979 

RETURN 


REM Eingabe von S 

PRINT : VTAB 9: INPUT "Bitte S eingeben : ";S 

VTAB 9: PRINT SPC( 15) 5 = Wis: CALL CL 

VTAB 11: PRINT TAB{ 29);"Richtig ?";: GOSUB A769: IF 
A$ = "N" THEN 4128 

RETURN 


REM Eingabe von R 

PRINT : VTAB 15: INPUT "Bitte R eingeben : ";R 

VTAB 15: PRINT SPC{ 15);"R = ";R: CALL CL% 

VTAB 17: PRINT TAB{ 2AB);"Richtig ?";: GOSUB 47ß8: IF 
A$ = "N" THEN 4189 

RETURN 


REM für Parametertaäbelle 

N$ = "nicht verwendet" 

ON VAL (P$) GOTO 4280,4290,4300 ‚,431P,4329,4330, 4340 
S$ = N$:T$ N$:R$ = N$: RETURN 

R$ = STR$ :5$ N$:T$ = N$: RETURN 

s$ = STR$ 
T$ = STR$ 


( 

(S}:R$ = N$:T$ = N$: RETURN 
R$ = STR$ ( 

( 

( 


) 

} 

):R$ = N$:S$ = N$: RETURN 
):5$ = STR$ (5S):T$ = N$: RETURN 

RS = STRS IR): T$ = STR$ (T):S5 = NG: REIURN 

S$ = STR ):T$ STR$ (T):R$ N$: RETURN 

R$ = STR$ (R):S$ = STR$ (S):T$ = STR$ (T}: RETURN 

REM alle Parameter eingeben 

IF P$ = ''ö" THEN 4430 

HOME : PRINT TAB( 18) ;"Parametereingabe" 

ON VAL (P$} GOSUB 4449,4450,4469, 4479, 4481 ,4499 ,A50P 

HOME : RETURN 

GOSUB 4185: RETURN 

GOSUB 4128: RETURN 

GOSUB 3989: RETURN 

GOSUB A128: GOSUB A189: RETURN 

GOSUB 3988: GOSUB 4189: RETURN 

GOSUB 399: GOSUB 4128: RETURN 

GOSUB 3900: GOSUB A129: GOSUB 4189: RETURN 

REM Kurzzusammenfassung 

HOME : PRINT "Die Funktion lautet :": PRINT : PRINT 

F$ 

VTAB 13: PRINT "Darstellungsgrenzen :": PRINT TAB( 

1®);"Kleinstes X : ";XL: PRINT TAB( 18); "Größtes X 

2 ER 

PRINT TAB( 1®};"Kleinstes Y : ";YL: PRINT TAB( 

1d); "Größtes Y ey 

VTAB 19: PRINT "Parameter :": GOSUB 4259 


R 
S 
T 
R 
R 
S 





PRINT TAB( 1B);"R = ";R$: PRINT TAB( 1P);"T = ";T$: 
PRINT TAB{ 1B);"S = ";5S$ 

PRINT "Ordinate X = ";:X 

RETURN 


REM Teste ob ja oder nein 
CET 8: IE AG < 2 um AND-AS < > UN TDEN ATaB 
RETURN 


REM lösche zwischen L1 und L2 Bildschirm 
FOR L = L1l TO L2: VTAB L: POKE CHZ,®: CALL CL%: NEXT 
: RETURN 


REM Grafik/Text umschalten 

POKE — 16368,9: REM Keyboardstrobe löschen 

IF PEEK (253) = 1 THEN POKE - 16303,8: POKE 253,2: 
RETURN : REM Textseite 

POKE - 16394,8: POKE - 16297,8: POKE 253,1: RETURN : 
REM Grafikseite 


REM Zeichne Achsen 

REM und skaliere 

HPLOT FN XS(ß},d TO FN XS({8),191: HPLOT ®, FN YS(ß) 
TO 279, FN YS(ß): ROT= 6:K = d: IF YL = Ö THEN 

K = —_ 

IF YH = ® THENK=2 

X = XH: IF ABS (XL) > XH THEN X = ABS (XL) 

GOSUB 3606: FOR X = - Xß TO X@ STEP ST 

IF X > XL AND X < XH THEN DRAW 1 AT FN XS(X), FN 
YS{d) +K 

NEXT :K = 6: IF XL = B THENK=2 

IF XH= 98 THENK=-2 

X= YH: IF ABS (YL) > X THEN X = ABS (YL): GOSUB 
36hh 

GOSUB 3600: ROT= 16: FOR X = - XB TO XB STEP ST 

IF X > YL AND X < YH THEN DRAW 1 AT FN XS(ß) + K, FN 
Ys(xX) 

NEXT : RETURN 


REM Ausdruck 

PRINT : PRINT D$;"PR#1": PRINT HT$;DP$: PRINT 

EB; "M";E$;"1"; CHR$ (6); 

REM EPSON FX-88 Steuercodes 

PRINT E$;'"Q"; CHR$ (98) ;E$; "A"; CHR$ (15); TAB( 

ASıSES =] st PLOT.2.B Et 

PRINT E$S;"N"; CHRS (6); CHR$ (13); CHR$ (19); CHR$ 
{1ß8);"Die Funktion lautet :'" 

REM rechter, linker Rand, Schönschrift, 

Formularlänge 

PRINT © F(X) =": WIDE (FS,3): PRINT 

PRINT E$:"D"; CHR$ (8); CHR$ (24); CHR$ (AB); CHR$ 
(56); CHR$ (72); CHR$ (P) 

PRINT CHR$ (19): CHR$ (13); "Darstellungsgrenzen 
".47$:"x Jäuft von :";HT$;XL;HT$; "bis : ";XH 

PRINT HT$:HT$;"y läuft von :":HT$; YL;HT$; "bis : ";YH 

PRINT CHR$ (13);"Parameterliste:";: IF R$ = N$ AND 

T$ = N$ AND S$ = N$ THEN PRINT ! Es wurden keine 

Scharparameter verwendet !": PRINT : GOTO 5270 

PRINT '" Folgende Parameter wurden mit den auf-": 
PRINT "geführten Werten durchlaufen.'"; CHR$ (19) 
IF R$ = N$ THEN 5238 

PRINT" R :"::K = ß: GOSUB 5319: PRINT 

IF S$ = N$ THEN 5259 

PRINT" S :"::K= 1: GOSUB 5319: PRINT 

IF T$ = N$ THEN 5279 

PRINT ! T :'";:K = 2: GOSUB 5319: PRINT 

PRINT CHR$ (13); CHR$ {1ß);"Die Grafik :": PRINT 
PRINT DP$; "'G": PRINT CHR$ (19); CHR$ (19); TAB{ 

82); "HME"; CHR$ (13); CHR$ (12): PRINT D$;"PR# B": 
RETURN 

REM 

REM Parametertabelle 

FOR J = 1 TO I: PRINT HT$;P(K,J):: IF J /5 = INT (J 

/ 5) THEN PRINT 

NEXT J: PRINT : RETURN 

REM 

REM Rufe Maschinenprogramm für Funktionseingabe auf 
CALL ASZ: GOSUB 1819: F$ = "=" 

FOR I = APZ TO AP% + PEEK (286):F$ = F$ + CHRS$ 
(PEEK (I)}: NEXT I: REM Hole Funktion aus 

Eingabepuffer 

I= 6: RETURN 

REM Ende Eingabe 

REM 

REM Fehlerbehandlung 

LN = PEEK (218) + 256 = PEEK (219):ER = PEEK (2ARR) 
CALL 3480 
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5528 IF ER = 255 THEN TEXT : HOME : GOTO 1889: REM 
Hauptmenü 

5538 IF ER = 254 THEN PRINT "?REENTER": RESUME : REM 
Anwenderfehler bei INPUT 

554ß8 IF ER= 133 OR ER = 69 OR ER = 53 THEN XA = ST + 
X:Xd = 9: GOTO 1659 

5545 REM Illegal Quantity, Overflow, Division by Zero 

555ß TEXT : VTAB 28: PRINT CHR$ (13); CHR$ (7);" Fehler 
Code # ";ER;" in Zeile ";LN: END 

5560 : 

5588 REM Pointer in ($67) falsch gesetzt, Programm liegt 
in Grafikseite 

5598 REM EXEC-File korrigiert das, lädt und startet das 
Programm von neuen 

56ß® HOME : VTAB 19: HTAB 5: PRINT "Programm PLOT,2,® 
wird geladen": PRINT : HTAB 14: PRINT "Bitte warten" 

5618 PRINT CHR$ (4) ;"EXEC PLOT. PROTECTOR" 


POWER Til 
ann 
et P..] z ORIG 


ea) Fey 
| en HE 


Ta Matat 
= en 


ae a on Alm 
aa 


LOCAL TEST il GR 


me tal): 
ad: Modem WS 2000 





PLOT. PROTECTOR 


ee Die neue Version dieses weltweit 
et benutzten professionellen Modems 
LOAD PLOT.2.0 - immer noch zum un- N 
ee schlagbaren Preis von DM 798 in 
RUN 
x Datenaustausch und Kommunkation mit praktisch 
PLOT.B | jedem Computer weltweit möglich 
er a ” Zugriff zu Datenbanken, Mailboxen, Btx, Bitx rück- 
* PLOT 2.0 x | wärts usw. 
5 ee : x Telex für alle durch einen neuen Dienst — mit Ihrem 
Be Computer und dem WS 2000 (fragen Sie uns) 
ORG  $Dpp * Alle gängigen Baudraten (75, 300/300, 600, 1200, 
Sn. en 1200/75, 75/1200) und international üblichen Über- 
PNTH EQU $51 tragung-Standards (CCITT, BELL) — umschaltbar 
STRPNTL EQU $cE per Hand oder per Computer (IC-Satz SK1 hierfür 
Ban DM 96,90; Anschlußkabel UPL DM 48,-) 
LCHARH EQU $B9 Automatisches Wählen mit Zusatzplatne AD2 
TDEN EL EU ES TR, (DM 199,50) und Kabel UPL 
INPFNTH EQU $88 : . 
PRGANFL EQU $67 x Automatisches Annehmen von Anrufen mit Zusatz- 
N EN = platine AA2 (DM 199,50) 
YSAV = $D7 x Einfacher Anschluß (parallel zur Telefonleitung); 
INBUF  EQU $020% eingebautes Netzteil; deutsche Anleitung; 1 Jahr 
INTXT EQU $DB5C Garantie 
INPUT EQU $D52E : ; 
PCODE EQU $DSsC %x Viele Interfaces lieferbar; z. B. 
IOSAVE EQU $FFAA CBM I für C64/VIC20 einschl. Listing DM 136,80 
an AC Kommunikations-Karte für APPLE DM 330,60 
* Funktionseingabe * (auf ROM) DM 256,50 
eh % Anschlußkabel zwischen Computer und Modem 
* (1989) * (bitte benötigten Steckertyp angeben) DM 57,— 
Den %* Liefermöglichkeit: sofort ab Lager Hamburg 
* kommentiert und x% x Alle Preise einschließlich MwSt. zuzüglich Ver- 
yon en * packung, Porto und Nachnahme (Bei Vorauszah- 
Ba lung durch V-Scheck/Überweisung Porto und Ver- 
ss aaraienreniudzeeeeene packung frei) 
e a retten und Pointer Claus F. Erbrecht 
LOS on Computer Related Products 
nn en Lappenbergsallee 37 - 2000 Hamburg 20° 
en Telefon 040/850 5255 
* "Y" als "Prompt-Charaoter" an Bankverbindung: Bank für Gemeinwirtschaft 
er BLZ 200 101 11, Konto-Nr. 1241 223700 
| 
JSR INTXT | 
LDX #$BD 
Ban em Achtung: Nur für hausinterne Telefon-Anlagen und | 
aa Ir Telene nicht amtsberechtigte Nebenstellen — in der BRD ist der 
JSR  PCODE Anschluß an das öffentliche Telefonnetz nicht gestattet! 


LDX INPNTL 
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BDIC: 
ÖDI1E: 


BD29: 
dD22: 
ÖD24: 
AD25: 
8D27: 
BD29: 
ÖD2B: 
AD2D: 


ÖDZF: 
ÖD31: 
AD33: 
ÖD35: 
AD36: 


AD38: 
DSB: 
ÖD3D: 


ÖD3E: 


AD3ZF: 
ADAl: 
ADA3: 
BDAA: 


BD4A6: 
ÖDAB: 
BDAA: 
BDAC: 
DAE: 
DSB: 


9052: 
D54: 


BD55: 


BD57: 


#D59: 
ÖDEB: 
ÖDSD: 
AD5F: 
DEP: 
AD62: 
BD6A: 
AD67: 


BD68: 
BDA: 
ÖDEC: 
ADED: 


ÖDEF: 
#D72: 


BD74: 
BDTT: 
BD79: 
ADTC: 
ADTE: 
BDEB: 
ÖDEL: 


BD84: 
BD86: 
WD88: 
BDSA: 
ÖDBB: 


86 
84 


AS 


18 
A5 
69 
85 
SH 
E6 


AB 
A9 
gl 
88 


D® 


B9 
91 
c8 


AA 


DA 
A9 
88 
9 


BE 
AB 
BD 
E6 
91 
E8 
BD 


B8 
BS 


68 


67 
15 
5B 
d2 
51 


E3 
3A 
59 


FB 


FD 
59 


el 
3A 


50 


FF 
BC 
CE 
CF 
D6 
BB 


50 


80 


BF 
CE 
CE 
D6 


EE 
SF 


D7 
13 
lE 


EB 
F8 


20 
FA 
D7 


D2 


B1 


FF 


ÖD 


BD 
AD 


BD 


11 
111 
112 
113 
114 
115 
116 
Ir 
118 
119 
128 
121 
122 
123 
124 
125 
126 
127 
128 
129 
138 
131 
132 
133 
134 
135 
136 
137 
138 
139 
148 
141 
142 
143 
144 
145 
146 
147 


LDY INPNTH 
STX LCHARL 
STY LCHARH 
suche Startadresse des 
Applesoftprogramns. 
20 Bytes später steht 
das "=" in Zeile 2 
LDA PRGANFH 
STA PNTH 
CLC 
LDA PRGANPL 
ADC #$15 
STA PNTL 
BCC LASSEN 
INC PNTH 
* Zeils 2 wird mit 228 
* Doppelpunkten aufgefüllt 
LASSEN LDY #$E3 
LDA #$3A a 
SCHLEIFE STA (PNTL),Y 
DEY 
BNE SCHLEIFE 
* Nun wird der Inhalt des 
+ Eingabepuffers hinter das 
* "=!" in Zeile 2 geschrieben 
TRANSF LDA INBUF-3,Y 
STA (PNTL).Y 
INY 
* TAX setzt die Prozessorflags, 
* Abbruch bei Zeilenende 
TAX 
* $08 durch ":" ersetzen 
BNE TRANSEF 
LDA #$3A 
DEY 
STA (PNTL).Y 
* In einen Puffer ab $dC99 wird 
* ein String geschrieben, der 
* die Funktionsvorschrift enthält. 


STRING LDA #SFF 

LDX #$0C 

STA STRPNTL 

STX STRPNTH 

SIr ENT 

LDY #+$08 
* Hole Zeichen/Token aus der 
* Programmzeile 


xxx %* 


NEXT EDA- CRNTLI TFT 
SEC 

x» Ist es ein Token ? 
CMP_ *#$89 


* wenn ja, suche zugehörige 
* Zeichenkette in Tabelle 
BCS TOKEN 
* nein, schreibe Zeichen in Puffer 
INC STRPNTL 
LDX +#$09 
STA ({STRPNTL,X) 
ENDE? INY 
GPY LPNT 
BNE NEXT 
JSR IOREST 
RTS 
* Alle Register werden gebraucht 
TOKEN STY YSAV 
LDY #$13 
NXTT DEY 
BMI ERR 
* Vergleich mit Token-Tabelle 
CMP TBL2,Y 
BNE NAXTT 
* Pointer auf Beginn des Strings 
* aus Tabelle entnehmen 
LDX TBL3,Y 
LDY #$9 
LDA TBEL,X 
NXTCHAR ING STRPNTL 
STA {STRPNTL),Y 
INX 
LDA TBL1,X 
* Wenn jetzt ein Space im Accu 
* steht, ist der String komplett 
CMP #828 
BNE NXTCHAR 
LDY YSAV 
CLV 
BVC ENDE? 
















































































* Es trat ein Token auf, das nicht 
149 x& in der Token-Tabelle berück- 

156 & sichtigt ist. Wird darauf Wert 
151 x* gelegt, sollte man es hinzu- 

152 x fügen, 


ÖD8ED: E6 CE 153 ERR INC STRPNTL 

ÖD8BF: A2 BB 154 LDX #$® 

ÖD91: A9 3F 155 LDA #$3F rq 
ÖD93: 81 CE 156 STA (STRPNTL,X) 

BD95: B8 IST CLV 

BD96: 59 C7 158 BVC ENDE? 


161 x APPLESOFT ONERR SUBROUTINE 
162 * Aus Applesoft Programming 
163 x Reference Manual, 5.82 


AD98: 68 164 PLA 
dD99: AB 165 PAY 
BDYA: 68 166 PLA 
DSB: A6 DF 167 LDX $DF 
ÖDSD: 9A 168 TXS 
BDIE: 48 169 PHA 
ÖDIF: 98 178 TYA 
ÖDAB: 48 7 PHA 
ÖDAL: 68 172 RTS 


174 x Ab hier Tabellen 
176 x Ein Shape zur Skalierung 
177 x sechs Vektoren 

SHTABLE HEX H1BBBAadd 


HEX B262940ABAdAdd 
= 2 nach unten ohne Plot 


181 & 4 nach oben mit Plot 
185 & Reservierte Wörter 


ÖDAD: 28 46 AE 186 TBLI ASC ' FN' 
SDBBß: 20 2B 187 ASC ' +! 
ÖDB2: 26 2D 188 AScC ' —! 
dDBA: 29 2A 189 ASC 
DB6: 20 2F 198 ASc az 
$DBE: 26 5E 191 Auen 
ÖDBA: 26 53 47 192 ASC ' SGN! 
ÖDBD: AE 

ÖDBE: 2B 49 A4AE 193 ASC ! INT! 
ÖDC1l: 54 

ÖDC2: 28 41 42 194 ASC ' ABS! 
dDC5: 53 

ÖDCE: 2B 55 53 195 ASC * USR' 
BDC9: 52 

ÖDCA: 20 53 51 196 ASC ' SQR' 
DCD: 52 

ÖDCE: 26 52 AE 197 ASC ' RND' 
dDD1: 44 

öDD2: 28 AC AF 198 ASE 21 2aG! 
ÖDD5: 47 

ÖDDE: 28 45 58 199 ASC ' EXP! 
ADD9: 50 

BDDA: 26 43 AF 200 ASc ' cos! 
dDDD: 53 

dDDE: 2 53 49 2P1l ASC ' SIN' 
ÖDEl: 4E 

ÖDE2: 28 54 al 282 ASC "' TAN’ 
DES: 4E 

ÖDES: 26 Al 54 2683 ASC ' ATN 
ÖDEIS: AE 28 


265 x» Token-Tabelle 


DEB: C2 c8 C9 206 TBL2 HEX C2CSC9ICA 
ÖDEE: CA 

ÖDEF: CB CC DR 287 HEX CBCCD2DS3 
DF2: D3 

dDF3: DA D5 DA 298 HEX D4A4D5SDADB 
ÖDF6: DB 

ÖDF7: DC DD DE 2B9 HEX DCDDDEDF 
DFA: DF 

ÖDFB: EB El 218 HEX EßEIL 


212 x Pointer zum Startpunkt in der 
213 + Schlüsselworttabelle 


ÖDFD: BO 83 d5 214 TBLS3 HEX B0A3850789 
dEBB: 87 89 

ÖEBß2: BB BD 11 215 HEX $BEDI111519 
BEßS: 15 19 

BEBT: 1D 21 25 216 HEX 1D212529 
AEBA: 29 

BERBB: 2D 31 35 217 HEX 2D313539 


DEBE: 39 






271 Bytes 
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von Marc van Woerkom 


CONVERT560 





Konvertierungsroutine für 
Double-Hires-Drucker-Dump 


Die neuen Computer der Apple-Il-Familie, 
d.h. der Apple Ilc und der Apple Ile mit 
erweiterter 80-Zeichenkarte (= 64K-Kar- 
te), bieten die Möglichkeit, Graphiken mit 
einer Auflösung von 560 x 192 Punkten zu 
erzeugen (= sog. Double-Hires-Graphik.) 
Im Peeker 2/84 wurde schon über die 
Organisation der Double-Hires-Graphik 
berichtet. Apple hat aber leider diese neu- 
en Graphikfähigkeiten weder im Ap- 
plesoft-Interpreter noch in der Treibersoft- 
ware der erweiterten 80-Zeichenkarte im- 
plementiert, so daß Double-Hires-Graphik 
nur mit externer Software möglich ist. Der- 
artige Software ist inzwischen schon vor- 
handen (s. Peeker 3/85: Test der Graphik- 
pakete „Doublestuff“ und „Superplot“). 


Double-Hires-Graphik ist sehr praktisch 
zum Plotten von mathematischen Funktio- 
nen, wie Bild 1 und Bild 2 eindrucksvoll 
zeigen, doch bieten die bisherigen Soft- 
warepakete keine Möglichkeit des Aus- 
drucks dieser Double-Hires-Graphik, was 
natürlich sehr unbefriedigend ist, da man 
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Farr®ı van Warren 


Bild 1: Normales DHGR-Bild 
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seine Ergebnisse ja gerne auch schwarz 
auf weiß zu Demonstrationszwecken usw. 
haben möchte. Dadurch sah ich mich ver- 
anlaßt, hier Abhilfe zu schaffen, und zwar 
mit möglichst geringem Aufwand. 


Die einfachste Implementierung dürfte in 
der Ausnutzung der bereits existierenden 
Programme zum Äusdruck normaler hoch- 
auflösender Graphik in Verbindung mit der 
hier veröffentlichten Utility CONVERT560 
bestehen. Die Begründung dafür ist, daß 
quasi jeder graphikfähige Drucker anders 
angesteuert werden muß! 

Da der Aufwand zur Erstellung von neuer 
„Graphik-Dump-Software“ zu jedem 
Drucker-Modell enorm wäre, kann man die 
alte, bereits vorhandene Software zusam- 
men mit CONVERT560 benutzen, das den 
Vorteil bietet, mit jedem Drucker zu arbei- 
ten. Voraussetzung ist allerdings, daß die 
vorhandene Dump-Software in der Lage 
ist, zwei Hires-Bilder nebeneinander aus- 
zudrucken (2 Hires-Dumps = 1 Double- 
Hires-Dump). 


Yaralık 44 





Wie CONVERT560 funktioniert 


CONVERT560 zerlegt einfach ein Double- 
Hires-Bild mit einer Auflösung von 560 x 
192 Punkten in zwei „normale“ Bilder zu 
je 280 x 192 Punkten. Diese werden dann 
wie gewohnt ausgedruckt. (Nicht jedes In- 
terface-Programm ist jedoch dazu in der 
Lage. Beispielsweise kann die zum Image- 
writer mitgelieferte Toolkit-Diskette nicht 
zwei Bilder nebeneinander ausdrucken. 
Anm. d. Red.) Vor dem Aufruf von CON- 
VERT560 befindet sich das Double-Hires- 
Bild in den zwei Speicherbereichen 
$2000-$3FFF (a) von den „unteren“ 64K 
und (b) von den „oberen“ 64K. Nach dem 
Aufruf von CONVERTS560 liegt das Dou- 
ble-Hires-Bild (a) in dem „unteren“ Be- 
reich $2000-$3FFF (linke Bildhälfte) und 
(b) in dem „unteren“ Bereich 
$4000-$5FFF (rechte Bildhälfte). 


Um sicherzugehen, daß CONVERT560 mit 
jeder Art von Graphik-Dump-Software zu- 
sammenarbeitet, wurden folgende Ge- 
sichtspunkte bei der Erstellung von CON- 
VERT560 beachtet: 


a CONVERT560 sollte relokativ*, sprich 
überall im Speicher lauffähig sein, um an 
die vorhandene Graphik-Dump-Software 
angehängt werden zu können. 

b Es sollte möglichst wenig Speicherplatz 
belegen, zum einen wegen (a) und zum 
anderen, um es eventuell in einem 
EPROM unterbringen zu können. 

c Die Bereiche zur ÄAbspeicherung der 
durch CONVERTS560 erhaltenen Bildhält- 
ten sollten frei wählbar sein, denn diese 


* Die Hegister-Save-Routine ist nicht relokaliv {Anm. 
d. Red.) 
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werden im Normalfall im HGRI- und 
HGR2-Bereich abgelegt, wodurch das 
Double-Hires-Bild zerstört wird, da es 
auch den HGRI1-Bereich belegt. Dies ist 
vielleicht nicht immer erwünscht. 


Diese drei Gesichtspunkte wurden wie 
folgt realisiert: 


® Sollte bei Ihnen die Startadresse $0300 
nicht nicht möglich sein, so ändern Sie 
bitte die „ORG“-Anweisung im Source- 
Listing. 

@® CONVERT560 belegt weniger als eine 
Seite im Speicher, genau $00A6 (dezimal 
166) Bytes. Um dies zu erreichen, wurden 
folgende Maßnahmen durchgeführt: 

Der von CONVERT560 zusätzlich benötig- 
te, 80 Bytes lange Zwischenspeicher wur- 


CONVERT560.DEMO 


16® REM CONVERT56.DEMO 

118 REM für Epson FX-8ß/8132W 

128 REM Das DHGR-Bild ist 

138 REM bereits geladen. 

14 TEXT : HOME : NORMAL 

150. D5 = CHRS (A): PRINT : 
PRINT D$;"BLOAD CONVERT56P" 

166 PRINT : CALL 768: REM Konvertieren 

178 I$ = CHR$ (9): PRINT : 
PRINT CHR$ (4); "PR#1" 

186 PRINT : PRINT I$; '"GBD" 

198 PRINT : PRINT D$; "PR#g" 

268 PRINT: END 


Bild 2: Gestauchtes DHGR-Bild 
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de in das Ende des Tastaturspeichers 
($0280- $O2FF) gelegt. 

CONVERT560 muß die Anfangsadressen 
der 192 Graphik-Zeilen berechnen kön- 
nen. Aus Platzgründen wurde jedoch kei- 
ne schnelle „Lookup-Table” verwendet, 
sondern die 10mal kürzere und damit 
langsamere, modifizierte Version von 
HPOSN ($F411). 

® Wünschen Sie andere Speicherberei- 
che für die entstandene linke und rechte 
Bildhälfte, so ändern sie im Source-Listing 
die Definitionen der Label „LeftPic“ und 
‚Rigmtßic. 


Die Funktionsweise von CONVERT560 ist 
relativ einfach: Es wird jede der 192 Zeilen 
der Double-Hires-Graphik einzeln erst in 
den Zwischenspeicher geladen, dort rich- 


CONVERT560 


tig umgestellt und dann in die angegebe- 
nen Speicherbereiche geschoben. 


Neben dem Source-Listing von CON- 
VERT560 ist noch ein kurzes Beispiel-Pro- 
gramm CONVERT560.DEMO abgedruckt, 
das den Gebrauch von CONVERT560 ver- 
deutlichen soll. Mit ihm wurden auch die 
Bilder 1 und 2 gedruckt, wobei ein Epson 
FX-80 mit Epson Interface 8132W zur Ver- 
fügung stand. Dieses Interface hat den 
Vorteil, daß die HGRI1- und HGR2-Seiten 
direkt nebeneinander ausgedruckt werden 
können. 

Dabei ist das Gesamtbild so komprimiert, 
daß es genauso groß wie ein normales 
Bild ist, so daß die Proportionen mit denen 
der 80-Zeichenkarte übereinstimmen. 

$ 


BSAVE CONVERT569, A768, L166 
Mit BLOAD CONVERT56® laden 
Mit CALL 768 aufrufen 


CONVERTS5SD 


Eine Double-Hires-Utility 
von Marc van Woerkom 1985 


SO-HJo0AhuN Dr 


Kurzbeschreibung: 


CONVERT56® bietet eine 
einfache Möglichkeit, 
Double-Hires-Bilder aus- 
zudrucken, denn es 
wandelt ein DHGR-Bild so 
um, daß danach die linke 
Hälfte im HGR1l-Bereich 
und die rechte Hälfte im 
HGR2-Bereich abgelegt 
ist. Diese gewöhnlichen 
Hires-Bilder können dann 
problemlos mit den schon 
existierenden, normalen 
Graphik-Treibern ausge- 
druckt werden. 


Mit CALL 768 aufrufen. 


“ 
= 
“ 
* 
* 
* 
# 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
" 


* Softswitches 


PACEL EQU 
PAGE2 EQU 
HIRES EQU 
SETSBCOL EQU 
CLR8SBCOL EQU 
CHK8SÖCOL EQU 
SETSÖSTO EQU 
CLREBSTO EQU 
CHKSÖSTO EQU 


$c054 
$cd55 
650857 
$CHBD 
SCHBc 
SCöLF 
$cägl 
ScHpg 
$c018 


* Zeropage-Adressen 


Fortsetzung Seite 30 
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Lohnsteuerjahresaus- 
gleich? - Einkommen- 
steuererklärung? 

Mein C-64 hilft mir dabei! 


von Ilona Kwiatkowski, Peter Vogt 


1985, 188 S., kart., DM 38,— 
ISBN 3-7785-1084-3 


Peeker 5/85 


I. Kwiatkowski » P. Vogt 


Lohnsteuerjahresausgleich? 
Einkommensteuererklärung? 







Mein C-6% 
hilft mir dabei ! 


Das vorliegende Buch zeigt dem Leser, 
wie er seinen Hobbycomputer beim Er- 
stellen des Lohnsteuerjahresausgleichs 
einsetzen kann. Die Autoren sind dabei 
von einer „Durchschnittsfamilie” aus- 
gegangen, damit die Belange jedes 
Lohnempfängers gebührend berück- 
sichtigt werden. Das Buch enthält das 
komplette Listing des Programms, das 
auf jedem gängigen Hobbycomputer 
ausgeführt werden kann. Es ist sowohl 
für den EDV-Hobbyisten als auch für 
den Leser geschrieben, der sich mit der 
EDV zwar nur am Rande beschäftigt, 








aber seinen Heimcomputer zur Durch- 
führung seines Lohnsteuerjahresaus- 
gleichs einsetzen möchte. 

Das Buch enthält neben grundsätzli- 
chen Bemerkungen zum Lohnsteuer- 
jahresausgleich eine Beschreibung des 
Programms und für denjenigen, der nur 
das Programm benutzen möchte, zu- 
sätzlich eine ausführliche Bedienungs- 
anleitung. Es werden Hinweise gege- 
ben, wie das Programm nach individu- 
ellen Bedürfnissen abgeändert oder er- 
weitert werden kann. 
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B388: 
9383: 
B3B6: 
9389: 
A3ACc: 
B30F: 
B312: 
#315: 
#318: 


Ö31E: 
320: 
W322: 


0323: 
#325: 
9327: 
9328: 
9329; 
M32B: 
M32D: 
B3ZRE: 
B338: 
0331: 
0332: 
0353: 
0335: 
B336: 
0338: 
339: 
B33B: 
B33D: 


B33F: 
B34B: 


8D 
8E 
8C 
AD 
8D 
AD 
8D 
8D 
8D 


A2 
86 


A8 
18 


BB 
F9 


ca 


FA 
FA 


FB 


FB 
FB 
FA 


FB 
IF 


189 


103 
164 
185 
196 
187 
198 
189 
118 
ı1l 
112 
113 
114 
115 
116 
117 
118 
119 
128 
121 
122 
123 
124 
125 
126 
127 
128 


YLine EQU $F9 
Herl EQU $FA 
LPic EQU $FC 
RPic EQU $FE 


* Programm-Adressen 


HGR1 EQU $2PB0 












$300-89 
$2009 
$aund 


Buffer EQU 
LeftPic EQU 
RightPic EQU 


ORG $399 


Retten der Prozessorregister., 


* 

* 

* 

* Ferner wird der Zustand 

* der Softswitches 8ßSTO 

* und 8BCOL gerettet; 

* dann werden diese zwei und 
* HIRES aktiviert, um den 

* Zugriff auf den HGRl-Bereich 
* des 64K-Zusatzspeichers 

* (AUX) zu ermöglichen. 

* 

G 


onvert STA 
STX 
ST 
LDA 
STA 
LDA 
STA 
STA 
STA 
STA 


Regs 
Regs+l 

Regst2 

CHKSBSTO 
Status 

CHK8BCOL 
Statustl 
SETSBSTO 
SETSBCOL 
HIRES 








Hauptschleife: 


Jede der 192 Zeilen wird 
einzeln konvertiert und in 
die Zielbereiche geschoben, 


KEERRERRKEH 


LDX 39 
STX YlLine 
TXA 


pi 
oO 
= 
E] 
[4b 


Berechnung der Startadresse 
der Zeile im Akkumulator und 
deren Speicherung im Pointer 
Hgr1l/Hgriml. 


{Es handelt sich hierbei 

aus Platzgründen um eine 
modifizierte Version von 
HPOSN ($FAll) und nicht um 
eine schnelle, aber sehr viel 
Speicherplatz verschlingende 
Lookup-Table!) 


EKRKFEETKEEKF HT TFT TFTFENRH 


AND 
STA 
LSR 
LSR 
DRA 
STA 
TXA 
STA 
ASL 
ASL 
ASL 
ROL 
ASL 
ROL 
ASL 
ROR 
LDA 
AND 


+211000009 
Heri 


Hgrl 
Herl 


Heri+l 


Hgrl+l 
Heri+l 


Herl 
Herli+l 
+$1F 


Setzen der Pointer 
Herl/Hgri+l, LPic/LPictl 
und RPic/RPic+tl. 


zkuk Kr »* 


TAY 
CLC 
ADC #>HGR1 






















0343: 85 FB 138 STA Herl4l 
0345: 98 131 TYA 

0346: 69 26 132 ADC #>LeftPic 
9348: 85 FD 198 STA LPictl 
B3AA: 98 134 TYA 

B34B: 69 49 135 ADC #>RightPic 
B34D: 85 FF 136 STA RPictl 
Ö34AF: A5 FA 137 LDA Hgri 

#351: 85 FC 138 STA LPic 


STA RPic 








* 
* Laden der jetzigen Double- 
* Hires-Zeile in den 88 Bytes 
* fassenden Puffer, und zwar 
* so, daß die ersten 49 Bytes 
* des Puffers die linke und 
* die restlichen 4 Bytes die 
* rechte Hälfte der Zeile 
+ enthalten. 
* 

A355: AD 27 158 LDY #39 

B357: A2 AF 151 LDX #79 

0359: 20 54 CO 152 Convö BIT PAGEL 

B35C: Bl FA 153 LDA (Hgrl),Y 

Ö35E: 9D BB 92 154 STA Buffer,X 

B361l: CA 155 DEX 

#362: 2C 55 CB 156 BIT PAGE2 

#365: Bl FA 157 LDA (Hgrl),Y 

0367: SD BB d2 158 STA Buffer,X 

B35A: CA 159 DEX 

B36B: 88 160 DEY 


BPL CGonvs3 











Softswitch PAGEl aktivieren, 
damit jetzt nur noch auf den 
Hauptspeicher zugegriffen 
werden kann. 


Verschieben des Puffer-— 
inhalts in die jeweiligen 
Speicherbereiche für die 
linke und rechte Bildhälfte. 


KRERFKFEHRKNHFH 


STA PAGEI 














LDY #39 


#373: BY9 BB B2 176 Conv4 LDA Buffer,Y 
#376: 91 FC RR STA {LPic),Y 
#378: B9 D8 2 178 LDA Buffer+46,Y 
037B: 91 FE 179 STA (RPic),Y 
#37D: 88 188 DEY 

B37E: 18 F3 181 BPL Conv4 













Erniedrigung des Zeilen- 
pointers und Rücksprung, 
falls nicht alle Zeilen 
konvertiert sind. 


184 
185 
186 


ER KHENH 


380: As F9 188 LDX YLine 
#382: 58 189 INX 
0383: EB CD 199 CPX #192 


BCC Conv2 












Wiederherstellen der Register- 
inhalte und 8ß-Zeichen- 
Softswitches. 


Danach erfolgt der Rück- 
sprung zum aufrufenden 
Applesoft-Prograun, 


«uk kr» 











0387: AD AA B3 201 LDA Status 

B38A: 38 03 282 BMI Conv5 

B38C: SD Bd Ch 285 STA CLR8BSTO 

O38F: AD A5 B3 204 Conv5 LDA Statustl | 
0392: 30 93 285 BMI Conv6 

#394: 8D GC Cd 296 STA CLREPCOL 

#397: AD Al 93 207 Conv6 LDA Regs 

0394: AE A2 03 268 LDX Regstl 

Ö39D: AC AZ B3 299 LDY Regst2 


RTS 







3% 
Regs 
Status 


212 
213 


DS 3 
DS 2 
166 Bytes 
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Disassembler für 
„geheime“ 6502-Opcodes 


von Christoph Bregler 








Der hier vorgestellte Disassembler ist eine Erweiterung des alten Monitor- 
Disassemblers um 93 zusätzliche 6502-NMOS-Opcodes, die in den Daten- 
blättern und in den meisten Assembler-Büchern nicht beschrieben 
werden. 

Die Befehle sind auf dem Apple Il, II+ und Ile verfügbar, da diese Geräte 
im Gegensatz zum Ilc, der den 65C02-CMOS-Prozessor enthält, noch die 
alte NMOS-Version benutzen. 
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Bei dem normalen 6502-Prozessor sind 
von 256 möglichen Codes nur 151 als 
Assembler-Befehle definiert. Die CPU in- 
terpretiert aber aus den restlichen Codes 
auch Befehle, die zwar zum Teil unsinnig 
sind, aber auch manche nützliche Opera- 
tionen enthalten. 

Mit dem vorhandenen Monitor-Disas- 
sembler kann man ein Programm mit sol- 
chen Befehlen nicht auslisten, da dann nur 
„2???“ ausgedruckt wird. Ich habe nun ei- 
nen „Extended Disassembler“ (EDA) pro- 
grammiert, der die zusätzlichen Befehle 
richtig ausgibt. 

Nach dem Eintippen des Programms sollte 
es mit „BSAVE EDA, A$94C8, 1$0138“ 
auf Diskette gespeichert werden. Durch 
„BRUN EDA* initialisiert sich die Routine 
selbst und kann dann vom Monitor aus wie 
der „L“-Befehl aufgerufen werden, wobei 
das „L“ durch Ctrl-Y zu ersetzen ist. 

EDA ist keine gepatchte Language-Card- 
Version des alten Disassemblers, sondern 
wird in der Page 3 und direkt unter dem 
DOS-Puffer abgespeichert, so daß er ver- 
schwindend wenig vom freien Speicher- 
platz in Anspruch nimmt. 

Somit läuft EDA auch auf Apple-Il-Versio- 


Beispiel 1 


LDY #9 
sTtY $6 
STA $7 
TYA 
STA 
INY 
BNE 
TXA 
DEC/CMP $7 
BCC LPI 


($6),Y 


co,J]0o0aAunDH 


LP2 


Beispiel 2 


4 Mikrosekunden 


LDA #$FF 
AXM #7 


8 Mikrosekunden 


1 
2 
3 
4 
5 
6 
7 
8 
9 


TXA 
SEC 
SBC #7 
TAX 


Addition (z.B. X + 13 -> X) 


LDA #$FF 
AXM *#-13 





32 


High-Byte der Anfangsadresse-l 
High-Byte der Endadresse 


Subtraktion (z.B. X- 7’ ->X) 


:C=ß bei Überlauf 


Subtraktion mit "echten" Opcodes 


;C=1 bei Uberlauf 
Im Zweierkomplenmet ist -13 = $F3 


nen mit nur 48K RAM oder unter ProDOS, 
das die Language-Card benutzt. 


Im folgenden sind zwei Anwendungsbei- 
spiele der zusätzlichen Op-Codes näher 
erläutert: 


DEC/CMP adr. 
INC/SBC adır. 


Diese Befehle erniedrigen oder erhöhen 
den Inhalt einer Speicheradresse und ver- 
gleichen das Ergebnis mit dem Akkumu- 
lator. 

Solche Operationen sind oft für die Aus- 
führung von Schleifen nützlich, in denen 
z.B. ein Pointer von einer Anfangsadresse 
auf eine Endadresse heruntergezählt wird. 
Dies ist nun mit einem einzigen Befehl 
möglich. 

Beispiel 1 zeigt eine solche Schleife, die 
einen Speicherbereich löscht. 


AXM #+Operand 

Dieser Befehl verknüpft Akkumulator und 
X-Register durch die AND-Funktion, zieht 
davon den Operanden ab und speichert 
das Ergebnis in das X-Register. Das Gar- 
ry-Flag muß nicht gesetzt oder gelöscht 
werden. Wird der Akkumulator vorher mit 


Code: 


ASL/ORA 


ROL/AND 


LSR/EOR 


STX/STA 


— ii — 


LDX/LDA 


Mnomonio: 





$FF geladen, so schafft dieser Befehl die 
Möglichkeit, direkt im X-Register zu addie- 
ren oder zu subtrahieren. 

Beispiel 2 demonstriert diesen Befehl und 
den Zeitgewinn gegenüber der Benutzung 
der „echten“ Codes. 


Eine Auflistung aller 93 zusätzlichen 
Codes kann der Tabelle 1 entnommen 
werden*. 

Bei vielen Befehlen handelt es sich nur um 
eine Aneinanderreihung zweier normaler 
6502-Befehle, wobei die Mnemonics dann 
aus den zwei Befehlen und einem Schräg- 
strich bestehen. 

Wegen der fehlenden Festlegung habe ich 
für die restlichen Codes die Mnemonics 
frei definiert. Bei ihnen druckt EDA dann 
noch ein „$“ davor, um sie von den ande- 
ren Befehlen abzusetzen. 

Alle übrigen nicht aufgelisteten Codes 
„hängen den Prozessor auf“ (z.B. $02). 
Man könnte sie höchstens als HALT-Be- 
fehle benutzen, bei denen der Prozessor 
dann wartet, bis ein Reset oder Interrupt 
erfolgt. 


* Eine analoge Matrixtabelle findet man in „incider“, 
4/85, S. 121 


Tabelle 1: Die „geheimen“ 6502-Opcodes 


TE 


Adress.: Zeit: Funktion; 


(ind. ,X) 
zeropage 
absolute 
(ind.),Y 
z.page,X 
absol,,Y 
absol.,,X 
(ind. ,X) 
zeropage 
absolute 
(ind.),Y 
z.page,X 
absol.,Y 
absol.,X 
(ind.,X) 
zeropage 
absolute 
(ind;),Y 
z.page,X 
absol.,Y 
absol.,X 
(ind.,X) 
zeropage 
absolute 
(ind.),Y 
z.page,X 
absol.,Y 
absol.,X 
(ind.,X) 
zeropage 
absolute 
z.pape,!ı 
{ind.,X) 
zeropage 
immed. 

absolute 
(ind. ),Y 


ASL Adr. & ORA Adr. 


ROL Adr. & AND Adr. 


LSR Adr. & EOR Adr. 


ROR Adr. & ADC Adr. 


1. 


Store (A AND X) Adr. 


LDX Adr. & LDA Adr. 


8 
5 
6 
8 
6 
7 
7 
8 
5 
6 
8 
6 
7 
iR 
8 
9 
6 
8 
6 
7 
7 
8 
5 
6 
8 
6 
T 
e 
6 
3 
4 
4 
6 
3 
2 
4 
O 
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1T 


DEC/CMP 


INC/SBC 


Ü 
SE 
9E 


SF 


dB,2B AND 
EB SBC 
1A,3A,5A NOP 
TA .DE.RA 
89,82,C2 NOP 
E2,04,14 
34,44,54 
64,74 ,D4 
FA,89 

DC... SC 
5C.7C,DE 


z.page,Y 
absol.,Y 
(ind .;Ä£] 
zeropage 
absolute 
nase 
z,page,X 
absol,,Y 
absol.,X 
(ind X] 
zeropage 
absolute 
(ind=N,Y 
z.page,X 
absol.,,Y 
absol,,X 
(inda],.Y 


YNINIODOOTO JOD nn Du 


I 


immed, 
immed. 
immed. 


tw 


impl, 


absol., 
immed. 
absol.,äÄ 
absolute 
absolute 
immed. 
immed. 
impl 


impl. 


DEG Adr. & CMP Adr. 


ING Adr. & SBC Adr 


Speichere <B>itß/3 von 
<A> AND <ÄX> nach Adr. 

AND Adr. & LSRA 

AND Adr., & ROR A 

<L>ade A mit <X> AND 
<I>mmedediate 

Lade <S> mit <A> AND <X> 
(besteht aus 3 Bytes, von 
denen die letzten 2 Bytes 
beliebig sein können) 
Lade <A>,<X>,<S5> mit 5 
AND Adr, 

Lade X mit <A> AND <X> 
<M>inus immediate 
<S>peichere <B>itß/3 von 
<Y> nach AÄdr. 

<S>peichere <H>igh Byte+l 


der Adr. AND <X> nach Adr. 


Speichere <H>igh Bytetl 
der Adr. AND <X> AND <A> 
nach Adr, 


besteht aus 2 Bytes, von 
denen das letzte Byte 
beliebig sein kann 


besteht aus 3 Bytes, von 
denen die letzten 2 Bytes 





I ASSEM 


79 
89 
81 


82 
85 
834 
85 
86 





COUNT EQU S$FD 
CSWLI EQU S$FE 
CSWHI EQU  $FF 


$F882 
SFSSC 
$FeDg 
$FEFS5 
$F953 
$FDED 
$FE75 


INSDS1 EQU 
INSDS2 EQU 
INSTDSP EQU 
NKTCOL EQU 
PCADJ EQU 
COUT EQU 
ALPC EQU 


ORG $9408 


* Schiebt EDA in Page 3, 
x setzt Ctrl-Y-Pointer und HIMEM 
* für die Opcode-Tabellen 


LDX #FMT3-ROUT 
INITLP LDA ROUT-L,X 

STA $2FF,X 

DEX 

BNE INITLP 

LDA #$4C 

STA $3F8 

LDA #<EXTLIST 

STA $3F9 

LDA #>EXTLIST 

STA $3FA 

LDA #<PFMT3 

STA HIMEM 

LDA #>PFMT3 

STA HIMEM+L 

RTS 


ROUT 
* EDA-Beginn bei $306 

ORG $308 
* Ruft 2ßmal (2® Zeilen) INSTDSP2 


* auf und erhöht mit PCADJ den 
* Befehlszähler 


EXTLIST LDA 
STA 
LDA 
STA 


GSWL 
CSWL1 
CSWH 
CSWHL 


87 LDA #28 


FC beliebig sein können 

88 STA LCOUNT 
89 JSR AIPC 
968  EXTLISTI JSR INSTDSP2 
91 JSR STCSW2 
92 JSR PCADJ 
93 STA PCLE 
94 sIY EGEH 
35 DEC LCOUNT 
96 BNE EXTLISTI 
97 RTS 
98 
99 * Biegt CSWL-Pointer zu COUT2 un 
188 
11 STCSWLl LDX #<COUT2 
192 STX  CSWL 
193 LDX #>COUT2 
184 STX  CSWH 
185 RTS 
186 
167 x Setzt CSWL zurück, so daß ein 
188 x eventuelles DOS nichts "nerkt" 
189 
11® STEHE LDX CSWLI 
1131 STX CSWL 
112 LDX CSWHl 
as STX CSWH 
114 RTS 
115 
116 COUT-Routine, die sowohl ohne 
117 DOS als auch mit DOS nicht 
118 "abzuhängen" ist und nach dem 
119 ten Aufruf (X=COUNT) wieder zu 
128 EDA springt 
121 

86 EE 122  COUT2 STX XSAVE 

2Ö 2A 03 123 JSR STCSW2 

28 ED FD 124 JSR GCOUT 

Di 125 el 


EDA 


rer 
* 
EDA 


* 


(E)xtended (D}is-(A)ssembler 


von Christoph Bregler 
Oktober 1984 


VDvDO-I0DTWITAUD Hr 


He 
Ha 


für die zusätzlichen 
65B2-Codes 
(keine 65Cß2-Codes!) 


Speicherbelegung: $B308d-$93CC 
$95B8-$95FF 


Benutzung: 

Wie den Monitor-List-Befehl. 
Anstatt 'L' wird Ctrl-Y ein- 
gegeben, 


N HEHHbrorHrH6H 
BOOAIODOGTAWLND 
x kaı ar k 


KEFEEFEEKETKHFHF TKFI FEF  M A ı  ı ı + 


DD DD 
NN HH 


teen 


LMNEM EQU $2C 
FORMAT EQU S2E 
LENGTH EQU $2F 
CSWL EQU $36 
CSWH EQU $37 
PCL EQU $3A 
PCH EQU $3B 
HIMEM EQU $73 
XSAVE EQU $EE 
ASAVl EQU $EF 
LCOUNT EQU $FC 


N VUODDNNMW 
mo o Joa 


IN Ol 
DH 


Sa Ge on 
MO in 
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34 


B33E: 
A340: 
9342: 
A344: 
#345: 
W346: 


B347: 
ZA: 
B34C: 
P3AE: 


Us: 
9353: 
355: 
B358; 
B35A: 
B35B: 


Ö35D: 
B35E: 


N36B: 
Ö361: 
#363: 
B364: 
A366: 
369: 
M36B: 
B36D: 
A36F: 
#371: 
9372: 
A374: 
B376: 


#379: 
A3TA: 
Dan: 
ÖZTE: 
381: 
0382: 
B384: 
A386: 
0388: 
B38B: 
A38C: 
ASBE: 
Ö38F: 
A39B: 
#391: 
0392: 
#393: 
9395: 
#398: 
B39A: 
B39C: 
BZ9D: 
A3Aß: 
A3A2: 
B3AS5: 
B3AT: 


AZAR: 
M3AD: 
A3AF: 
A3Bl: 
B3B3: 
B3BB5: 
B3B7: 
19: Ag 


Fi: 


46 EE 


C6 
D9 
68 
68 
69 


28 
c9 
Dd 
28 


Bl 
A2 
DD 
1 
CA 
19 


AA 
BB 


2A 
29 
89 
20 
48 
Bl 
29 
d9 


48 
Bl 
AA 
aa 
Aa 
aa 
BA 
69 
20 


85 
68 
29 
Ag 
29 
A2 
40 


BD 
86 
85 
23 
85 
Ag 
85 


FD 
B2 


82 
19 
28 
21 


19 


03 


dc 
B3 
2E 
B5 
aF 
3E 


2 
19 
D3 


FE 
8E 
BF 
FD 


D3 
AF 
ED 


B9 


BC 
EF 
2E 
85 
2F 
BD 
FD 
52 


F8 


83 


95 


95 


Fö 


F8 


F8 


Fö 


F8ö 


FD 


F8 


95 


126 
ler 
128 
129 
136 
131 
132 
143 
134 
135 
136 
137 
138 
139 
149 
141 
142 
143 
144 
145 
146 
147 
148 
149 
156 
151 
152 
153 
154 
155 
156 
157 
158 
159 
16% 
161 
162 
163 
164 
165 
166 
167 
168 
169 
178 
I 
172 
173 
174 
175 
176 
rar 
178 
179 
189 
181 
182 
183 
184 
185 
186 
187 
188 
189 
198 
191 
192 
193 
194 
195 
196 
197 
198 
199 
289 
281 
282 
2083 
284 
205 
2086 
207 
208 
2689 
21% 
21l 
212 


LDX 
DEC 
BNE 
PLA 
PLA 
RET RTS 


ASAVE 
COUNT 
RET 


* Prüft, ob ein nicht definierter 
* Befehl anliegt 


INSTDSP2 JSR 
CMP 
BNE 
JSR 


INSDS1 

+61 ; ?-CODE 
CONT 

STCSWI 


* Prüft, ob ein Befehl anliegt, 
* der durch die folgende De- 
* codierung falsch ausgedruckt wird 


LDA 
LDX 
BEÄTLP CMP 
BEQ 
DEX 
ERL 


LSR 
BCS 


* Decodierung 
* Befehle 


LSR 
AND 
TAX 
BEQO 
NOP LDA 
STA 
AND 
STA 
LDA 
SEC 
CRASH BCC 
EOR 
CONT JMP 


* Decodierung 


ÜBEL N 
#16 
EXTBL,X 
EXT 


EXTLP 


ODD 


der NOP- und CGRASH- 


#3 


CRASH 

FMT3,X 

FORMAT 

#3 

LENGTH 

+$3E ‚NOP+? 


NOP 
+$10 ; ?-CODE 
INSTDSP+3 


der "Doppel-Mnemo- 


* nic"-Befehle (z.B. INC/SBC) 


ODD ROL 
AND 
ORA 
JSR 
PHA 
LDA 
AND 
ORA 
JSR 
PHA 
LDA 
TAX 
LSR 
LSR 
LSR 
TXA 
ADC 
JSR 
LDA 
STA 
PLA 
JSR 
LDA 
JSR 
LDX 
JMP 


* Decodierung 


#$FÖ 
#5 
INSDS2r2 


VEGE}, LE 

#hFÖ 
+6 

INSDS2+2 


FRGEN,.T 


+-2 

INSDS2+2 

#15 ;COLM.-8 
COUNT 


INSTDSP+3 
al 

COUT 

#3 

$F8E9 


der "unregelmäßRi- 


* gen" Codes nach den Opcode- 


* Tabellen in 


EXT LDA 
STX 
STA 
AND 
STA 
LDA 
STA 


PAGE $95 


FMT4,X 
XSAVl 
FORMAT 
#5 
LENGTH 
#15 ;COLM.-8 
COUNT 
132 &-CODE 


238 
231 
232 


233 
254 
235 
236 
257 
238 
239 
240 


2al 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
268 
261 
262 
263 
264 
265 
266 
267 
268 
269 
278 
2 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
296 
291 
292 
293 
294 
295 
296 
297 
298 


INSTDSP+3 
XSAVl 
MNEML1,X 
LMNEM 
MNEMR1,X 
#3 
NXTCOL-2 


RTEND 


* Tabellen, die in PAGE $95 
* stehen: 


ORG ROUT+RTEND-EXTLIST 


* Tabelle für die Länge der 
* NOP-Befehle 


FMT3 HEX 81819982 


* Tabelle für die Adressierungs- 
* arten: 


FMT4 HEX 818181 ;$XX 
HEX 4D :($XX),Y 
HEX 81 :$XX 
HEX 2121212121 ;#$XX 


HEX 82 :$XXXX 
HEX 86 SSXXXX,Y 
HEX 2121 :#5XX 
HEX 92 :$EXXXX, X 
HEX 8282 :HAXXX 


* Tabelle für die zusätzlichen 
* Mnemonics: 


MNEML] HEX TETCTC ;NOP 
HEX 18 :BAX 
HEX 7C :NOP 
HEX 1313 : AND 
HEX 6D "LSA 
HEX 9C ;ROA 
HEX 6E SLHT 
HEX AB :SAX 
HEX 16 ;AXS 
HEX 16 ; AXM 
HEX A® ;SBC 
HEX AB :SBY 
HEX A2 ıSHX 
HEX 4E :HXA 


MNEMR1 HEX AR2222 ;NOP 
HEX BR ;BAX 
HEX 22 ;NOP 
HEX CACA ; AND 
HEX 94 ‚LSA 
HEX 94 ;ROA 
HEX 54 ‚LAL 
HEX B2 ‚DAX 
HEX 68 ;AXS 
HEX 5C ; AXM 
HEX C8 ‚Sb6 
HEX F4 ;SBY 
HEX 72 ;SHX 
HEX 44 ;HXA 


* Tabelle der Godes mit den 
* Mnemonics von oben: 


EXTBL HEX S82CRE2 ;NOP 
HEX ;BAX 
HEX ;NOP 
HEX ;AND 
HEX ;LSA 
HEX ;ROA 
HEX ILAL 
HEX ;5AX 
HEX ;AXS 
HEX ;AXM 
HEX "SBE 
HEX :SBY 
HEX :SHX 
HEX ;HXA 


DOSBUF 
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Ein gewöhnlicher Mikroprozessor kann im allgemeinen keine höheren mathemati- 
schen Funktionen als Maschinenbefehl ausführen. Ausgenommen sind natürlich die 
Arithmetik-Prozessoren. Neuere Mikroprozessoren wie der MC 68000 von Moto- 


rola haben immerhin Divisions- und Multiplikationsbefehle für Ganzzahlen in 
ihrem Befehlssatz. Fließkommaarithmetik aber beherrschen diese noch immer 
nicht. Wie man höhere mathematische Funktionen in Pascal beschreiben kann, 


soll dieser Artikel zeigen. 





Transzendente 





Funktionen in Pascal ...... 


Ergebnisse von Berechnungen höherer 
mathematischer Funktionen sind fast nie 
genau, da sie Fließkommaarithmetik vor- 
aussetzen. Die sogenannten reellen Zah- 
len können durch keine noch so große 
Anzahl von Bits in jedem Zahlenbereich 
genau dargestellt werden. Die Eulersche 
Zahl e z. B. hat unendlich viele Nachkom- 
mastellen. Das liegt daran, daß sich e aus 
einer Potenzreihe, der sog. Exponential- 
reihe, berechnen läßt. Diese Reihe hat 
unendlich viele Glieder. Die ersten lauten: 
2 Zar Aa: 
Entsprechend ist eine Potenz von e, z.B.: 
ei Kr er 2re) 
or 


Ähnliches gilt für den Sinus, den Cosinus 
und für andere Funktionen wie den Sinus 
Hyperbolicus (sinh) oder den Cosinus Hy- 
perbolicus (cosh). Der Sinus ist also nicht 
irgendeine Relation zwischen Gegenka- 
thete und Hypotenuse eines rechtwinkli- 
gen Dreiecks, sondern eine Potenzreihe, 
die für alle Werte x, für die man den Sinus 
berechnen will, gegen einen bestimmten 
Funktionswert konvergiert. Diesen Funk- 
tionswert nennt man dann den Sinus der 
Zahl x. 


Das hier vorgestellte Programm zeigt die 
Implementierung von transzendenten 
Funktionen in UCSD-Pascal. Es ist als 
‚Unit‘ geschrieben und läßt sich durch ein 
einfaches „uses“ nach dem Programm- 
kopf benutzen. Die Segmentnummer ist 
absichtlich als 29 gewählt, die damit der 
Nummer des in der SYSTEM.LIBRARY 
enthaltenen TRANSCEND enispricht. 


Für den Arcustangens wurde allerdings 
die Abkürzung arctan und nicht atan, wie in 
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TRANSCGEND, gewählt. Das entspricht der 
Definition dieser Funktion in Standard- 
Pascal. 


Hat man die ersten sieben Funktionen im- 
plementiert, lassen sich alle weiteren 
Funktionen mit Hilfe dieser sieben aus- 
drücken. 


Der Sinus eines Wertes x wird in der ‚func- 
tion sine‘ über die Potenzreihe des Sinus 
berechnet. Sie lautet: 
sn=x-x13/31+x15/5!-x17 
ne 

Bevor die ersten fünf Glieder dieses Aus- 
drucks mittels des Hornerschemas be- 
rechnet werden, wird der Wert x, auch das 
Argument genannt, in den Bereich [-Pi/ 2, 
+Pi / 2] gebracht, denn es gibt ein z und 
ein.n, für die gelten: 

xX=z+tn-Pi. 

Das liegt an der Periodizität des Sinus. Ist 
der Wert des Sinus sehr klein (< 
0.00025), dann gilt näherungsweise: x = 
sin (x). Außerdem wird in der Berechnung 
die Beziehung sin (-x) = - sin (x) benutzt. 


Der Cosinus ist nichts anderes als ein um 
Pi/ 2 verschobener Sinus, und so wird er 
auch berechnet. 


Bei der Exponentialfunktion ‚exp‘ wird ein 
z und ein n gefunden, so daß gilt: 
etTx=eftzet(nIın@)=efz- 
ei na) Tn=eTz>2FTn. 

Diese Darstellung ist deshalb günstig, weil 
der Exponent einer Realzahl intern zur Ba- 
sis 2 dargestellt wird, und nicht zur Basis 
10. Bevor der Werte ? x berechnet wird, 
muß x in den Bereich [-In (2) /2, +In (2) / 
2] gebracht worden sein. 


Ähnlich wird beim ‚In‘ verfahren, Man kann 


nämlich ein z und ein n finden, so daß gilt: 
n(k)=In(z) + n- In (2). 


Dazu muß ein z aus dem Bereich [0.5, 1] 
und n ein natürliche Zahl sein. 


Die Quadratwurzel ‚sqrt‘ wird ebenfalls in 
ähnlicher Form berechnet. Es werden ein 
n und ein z gesucht, sodaßx=z.x ! n 
ist. Fürn und z gilt derselbe Bereich wie 
beim ‚In‘. Es ist dann 

satt x) = sart (zZ) 2 T (ndiv2), 

wenn n gerade ist, und 

sart X) = sart {z) (2 T ({n + 1) div 2)) / 
sart (2). 

Die Wurzel selbst wird mit Hilfe des New- 
tonschen Näherungsverfahrens in drei 
Schritten berechnet. 


Bei allen Funktionen wird das Wissen vor- 
ausgesetzt, wie die Realzahlen intern co- 
diert sind. Dies macht sich in dem Typ 
Realrec bemerkbar, der zwei Varianten 
überlagert, nämlich die Realzahl selbst 
und die einzelnen Komponenten der Real- 
zahl. Diese Komponenten sind Mantisse, 
Exponent und Vorzeichen. 


Wer flüssig in Pascal programmieren kann 
und trotzdem die Berechnungen der trans- 
zendenten Funktionen nicht ganz versteht, 
mag sich damit trösten, daß es wohl Ma- 
thematiker gewesen sein müssen, die sich 
derartige Tricks haben einfallen lassen. 
Dazu gehören auch die vielen Kniffe, wel- 
che Rundungsfehler etwas einschränken 
sollen. Ich selbst habe auch nicht alles auf 
Anhieb verstanden. 
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{$S+} 
unit transcend; intrinsic code 29; 


interface 


function sin [x : real) : real; 
function cos (x : real) : real; 
function exp {x : real) : real; 
function arctan (x : real) : real; 
funetien In (x : real) : real; 
function log (x : real) : real; 
function sqrt (x ; real) : real; 
function 1d (x : real) : real; 
function tan (x : real) : real; 
funerlion eot {Xi real) : real; 
function arcsin (x : real) : real; 
function arccos (x : real) : real; 
function arccot (x : real) : real; 
funstion sinh (x :; real) : real; 
function cosh (x ı real) : real; 
function tanh (x : real) : real; 
function coth (x : real) : real; 
function arsinh (x ! real) : real; 
function arcosh (x ; real) : real; 
function artanh (x ; real) : real; 
function arcoth (x : real} : real; 
function xpwry (xy : real] ; real; 


implementation 


l nn 


const Pldiv2 = 1,5797963; 
Sart2div2 = 0,78718678; 


packed record 
case integer of 
ßÖ : (Realval : real); 
1 : (Mantl : integer; 
Mant2 mer; 
Exp : 057255; 
Sign : dal) 
end; {Realrec} 


type Realrec 


——— —_— 


function sine (X : real; Sign : integer} : real; 


const RezPI = P.3183ß99; LI/PI) 
PIl 3.149625; {PIl + PI2 = PI} 
PI2 B.09096765364; 
Fak9 B.önzedlees; (1/9!) 
Fak7 -H.BBH1938B7Aa21;  {1/T!} 
Fak5 d.008333025; (1/51) 
Fak3 = -9.16666657; (17311 


Xsqr ı real; 
Npi : integer; 


begin {sine} 
if X > 1008000.® then halt; 
Npi := round (X & RezPI}; 
if odd (Npi) then Sign := - Sign: 
X := X - Npi # PIl - Npi & PIZ; 
if abs (X) >= 9.909925 then 
begin 
isoar = X» X; 
X = X+Xx* ((({Fak9 * Xsar + Fak7) * 
Xsqar + Fak5) = Xsar + Fak3) « Xsar) 
end; {if} 
sine := Sign * X 
end; {sine} 


I—-- 


function sin {(x : real) : real}; 


begin {sin} 
ifx<BöB 
then sin := sine (—, -}) 
else sin := sine (X, ]) 
end; {sin} 


! ag FG 


function cos {(x : real) : real}: 


begin {cos} 
cos := sine {abs (x) + PIdiv2, ]) 
end; {cos} 





) 


function exp {{x : real) 


real}; 


const RezLN2 = 1.442695; ET ZEN (2)} 


LN2_1 .6933593; 


{LN2_1 + LN2_2 = LN (2)} 


LN?2_2 = -8.00021219444; 
RC1 d.0041602895; 
Rc2 = 69.94998718; 


N : integer; 
Xsqr real: 
R : real; 
Tricky : Realrec; 


begin {exp} 
ifx=9d 
then exp := 14,ß 
else 
begin 
N 
X 
Xsqr 
R 
Tricky.Realval 
Tricky.Exp 
eXp 
end {else} 
end; {exp} 


{ Fe 


= round (x * RezLN2); 
=x-Nx LN_1-Nx* LN22; 


x# X, 


=x %* (RCl » Xsar + 8,25); 


8.5 +R/ (RC2 » Xsar +9.5 -R)}; 
Tricky,Exp + IN+ 1); 


= Tricky.Realval 


m——— 


funetion arctan.!(x : real) : real), 


const Maxloop = 8; 


var Äsqr : real; 
R : real; 
Neg : boolean; 
I : integer; 
begin 
XÄsar = X # X; 


if abs (x) > 1: then Xsar := 1,9 / Xsar; 


R :=2 * Maxloop + ]; 


for I := Maxloop downto 1doR := 2,8» I -1.B + 


ix I * Xsqar 
if abs (x) > 159 
then 
begin 
Neg :=X<B$; 


FR: 


Xsar := PIdiv2 - 1.8 / (abs (x) « R); 


if Neg 


then arctan !:= -Äsqar 
else arctan : Xsqar 


end {if} 
else arctan :=x /R 
end; {arctan} 


| 7 


function In {{x : real) 


real}; 


const LN2_l = 9.6933593; 
Rc1 .55278747; 
RC2 6.632718; 
LN2_2 = -B.B0021219444; 


Tricky : Realrec; 
Rl . real; 
R2 : real; 
Rö real, 
RA  meal, 
E : integer; 


begin {ln} 
if X <= 6,8 then halt; 
Tricky.Realval := x; 


E ’=lrieky,.Exp = 126; 


Tricky.Exp = 126; 


X := Tricky.Realval; 


II x > sartzdivy> 


then R2 := (x - 6.5 - 8.5) / (x « 0.5 + 8.5) 


else 
begin 
BE :=E=-1]:; 
Ras cceX - 55; 


R2 :=R3 / (R3 # 055 + 55) 


end; {else} 
Rl := R2 * RZ; 


In := Ex LN2_1 + (R2 + R2 x (Rl # RC1 / 
(RC2 - Rl)}}) + E x LN2_2 


end; {In} 
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function log {(x : real) : real}; 









begin {log} 
log := In (x) # 9.43429448 {1 / In (18) = B,43429448) 
end; {log} 


ne 


funstion sart {(x : real) : real}; 










const RCl 
RC2 


9.417231; 
9.599816; 


var R ı real; 
Tricky : Realrec; 
E - integer; 
il : integer; 






















begin {sqart} 
if X< 6 then halt; 


ifx=9ß% 

then sart := 9.9 

else 

begin 

Tricky.Realval := x; 
E = Tricky.Exp - 126; 
Tricky.Exp =: 126: 
x := Tricky.Realval; 
R := RCI + RC2 x x; 


for 1 = @to2 ao R:=S 5 a (RX FR 
if odd (E) then 


begin 
R:=R x Sart2div2; 
E:=E+tl1 
end; {if} 
Tricky.Realval :=R; 
Tricky.Exp := E div 2 + Tricky.Exp; 
sqrt := Tricky.Realval 
end {else} 
end; {sqrt} 


{ mm 


function 1d {x : 











real) real}; 


begin {log} 
ld := In (x) * 1.44269584 {1 / In (2) = 1.44269594} 
end; {log} 









| m m 







function tan {{x : real) real}; 


begin {tan} 
tan := sin (x) / cos (x) 
end; {tan} 


[ 


















function cot {(x : real) real}; 


begin {cot} 
cot := 1 / tan (x) 
end; {cot} 


{ 2 


function arcsin {(x : 


2 a a ee ee ae } 


real) 








real}; 





begin {arcsin} 

if abs (x) > l then halt; 

if abs (x) = 1.9 

then arcsin := x * Pldiv2 

else arcsin := arctan (x / sart {l - sar (x})) 
end; {arcsin} 


I----- 


function arccos {(x ; real} : real}; 









begin {arccos} 
if abs (x} > 1 then halt; 
arccos := Pldiv?2 - arcsin (x) 
end; {arccos} 


{ a 










real) real}; 





function arccot {{x : 


begin {arccot} 
arccot := Pldiv2 - arctan [x) 
end; {arccot} 


funstion sinh {[(x : real) : real}; 


begin {sinh} 
sinh := 9.5 = (exp (x) - exp (-x)) 
end; {sinh} 


(m 


function cosh {{x : real) : real}; 


begin (cosh} 
cosh := 8,5 * (exp [x) + exp {-x)) 
end; {cosh} 


{ PR BE TREE ET 


function tanh {({x : real) : real}; 


begin {tanh} 
tanh := sinh (x) / cosh (x) 
end: {tanh} 


| 


function coth {(x : real) : real}; 


begin {coth} 
if x=® then halt; 
coth := 1 / tanh (x) 
end; {coth} 


(m 


function arsinh {(x : real) : real}; 


begin (arsinh} 
arsinh := In (x + sart (sar {x) + 1)) 
end; {arsinh} 


1 — 
function arcosh {(x : real) : real}; 


begin {arcosh} 

if x < 1.8 then halt; 

arcosh := In {x + sart (sar (x) - 1)) 
end; {arcosh} 


( 


function artanh {(x : real) : real}; 


begin {artanh} 

if abs (x) >= 1 then halt; 

artanh := 9.5 » In ((l +x) /(1-x)) 
end; {artanh} 


function arcoth : real) : real}: 


begin {arcoth} 

if abs (x} <= 1 then halt; 

arcoth := 45 # In ((x +1) / (x -]1)) 
end; {arcoth} 


mn 


funotion xpwry {(x, y : real) : real}; 


begin {xpwry} 
if x < ® then halt; 
ify=ß 
then xpwry := 1,9 
else 
ie weh 
then 
ie re 
then halt 
else xpwry := B.ß 
else xpwry := exp (y * In [x)) 
end; {xpwry} 


( 


begin {transcend} 
end {transcend} 
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Das CP/M- 
Directory näher 
beleuchtet 











Der Aufbau von 16-Sektor-CP/M-Disketten 


von Dr. Jürgen B. Kehrel 


Sie wollen von DOS aus auf CP/M-Textfiles zugreifen? Sie wollen gelöschte Files 
wiederbeleben? Sie wollen wissen, wie Ihre CP/M-Disketten belegt sind? Immer 
dann und in vielen anderen Fällen müssen Sie den genauen Aufbau des 


Directory kennen. 


Die Z80-Karte von Microsoft ist eine der 
häufigsten Ergänzungen zum Apple II, 
denn sie eröffnet den Zugang zu vielen 
interessanten kommerziellen Program- 
men. Trotzdem steht in Büchern und Zeit- 
schriften nur wenig über Interna von Ap- 
ple-CP/M. Das mitgelieferte Softcard- 
Handbuch schweigt sich z.B. über den 
Aufbau einer CP/M-Diskette völlig aus. 
Aber da Sie leicht sehen können, daß CP/M- 
Disketten mit COPYA zu vervielfältigen 
sind (was Sie aber nicht tun sollten, s.u.), 
liegen Sie mit Ihrer Vermutung ganz rich- 
tig, daß zwischen DOS 3.3 und CP/M 
Ähnlichkeiten bestehen. Diese sind so 
groß, daß Sie z.B. mit DOS 3.3 GP/M- 
Disketten lesen können. Im Heft 3/1985 
vom Peeker wurde ein praktisches Bei- 
spiel vorgestellt. 


nn OqG 


oO-Ärmo 


- DPD UNO NnDarın0 WW OO 9 © 
= 


" Blöcke 37B F 
Abb. 1: CP/M-Diskette (schematisch) 
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Der Diskettenaufbau 


Alle folgenden Erläuterungen beziehen 
sich auf das 16-Sektor-CP/M, Version 2.2 
von Microsoft (Digital Research). Das 
FORMAT-Programm erzeugt eine Diskette 
mit 35 Spuren (Tracks) zu je 16 Sektoren. 
Alle Sektorinhalte werden dabei auf $E5 
gesetzt. Eine solche Diskette enthält keine 
Systemspuren, kein Directory und auch 
keine Files, anders als beim INIT-Befehl 
von DOS. Mit dem COPY-Programm kön- 
nen Sie nun auf die Spuren 0-2 analog zu 
DOS den CP/M-Systemcode aufbringen. 
Der Befehl SYSGEN existiert in der Apple- 
Version nicht. 


Die verbleibenden 32 Spuren werden vom 
CP/M in 128 Blöcke unterteilt, die von 


4 CPM 44 





$00 bis $7F durchnumeriert sind. Jeder 
Block umfaßt 1024 Bytes (IK) und setzt 
sich seinerseits aus 8 Records zu je 128 
Bytes zusammen. Da nun jeder Disketten- 
sektor aber 256 Bytes umfaßt, gehören 
immer 2 Records zu einem Sektor und 4 
Sektoren zu einem Block. Sie können sich 
einfach ausrechnen, daß 4 Blöcke gleich 
16 Sektoren sind und damit eine Spur 
ergeben (Tabelle 1). Die Blöcke werden 
von außen nach innen gezählt, so daß 2.B. 
die Blöcke O bis 3 zur Spur 3, die Blöcke 4 
bis 7 zu Spur 4 usw. gehören (Spur = INT 
(Blocknummer/4) + 3). Ein Block ist die 
kleinste Einheit, die von CP/M auf einmal 
gelesen oder geschrieben werden kann, 
so daß selbst Miniprogramme immer min- 
destens 4 Sektoren belegen, was gegen- 
über DOS eine gehörige Platzverschwen- 
dung bedeutet. 


Die Blöcke O und 1 der Diskette enthalten 
ihr inhaltsverzeichnis (Directory), alle übri- 
gen Blöcke stehen zur Abspeicherung von 
Daten bereit. In der Abbildung 1 sind die 
Blöcke vereinfachend als zusammenhän- 
gende Bereiche dargestellt. Das ist aber in 
der Praxis nicht so, denn zur schnelleren 
Verarbeitung benutzt CP/M ein sogenann- 
tes „Sector-Interleaving“ (auch Skewing 
genannt). Näheres dazu steht In der ange- 
gebenen Literatur. Da auch DOS 3.3 nicht 
die physikalische Sektornumerierung be- 
nutzt, ist der Zusammenhang zwischen 
DOS-Sektoren und CP/M-Blöcken nur 
über eine Tabelle zu erfassen (Tabelle 2). 
Wegen des unterschiedlichen „Skewing” 
sollten Sie auch nicht COPYA für CP/M 
verwenden, da CP/M dann diese Kopien 
sehr langsam liest. „Relativer Block” in 
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Tabelle 1: Gleichungen 


128 Eyte = 1 Record 

2 Records = 1 Sektor 

8 Records = 1 Block 

1 Block = 4 Sektoren 
16 Sektoren = I Spur 

A Blöcke = 1 Spur 


Tabelle 2: Skewing 
Rel. Block DOS-Sektoren 


Block ® DE Ca 
Block 1 GES 
Block 2 Bar 25 2% 
Block 3 DEAN ] 


Tabelle 2 bedeutet dabei die Blockposition 
in einer Spur, so daß die Blöcke $00, $04, 
608, ..., $7C z.B. alle den relativen Block O 
bilden (Rel. Block = Blocknummer MOD 
4), 


Das CP/M-Directory 


Nachdem Sie nun wissen, wie die CP/M- 
Diskette organisiert ist, verstehen Sie 
auch leichter die Eintragungen im Direc- 
tory. 


$C3 statt $43), hätte der File das R/O- 
Attribut, wäre also nur lesbar, aber nicht 
Iöschbar oder zu überschreiben. Ein ge- 
setztes Bit 7 in Byte $0A kennzeichnet 
System-Files, die bei einem DIR-Befehl 
nicht gelistet werden. Die Bits werden mit 
dem STAT-Programm verändert. Das Byte 
$0C unterscheidet mehrfache Einträge für 
denselben File, was bei großen Files (z.B. 
GBASIC) notwendig ist. Mehr über diese 
Extension-Zahl später. Byte $0D und $0E 
sind immer gleich $00. Das Byte $0OF be- 
zeichnet die Zahl der Filerecords in die- 
sem Eintrag, im Beispiel für FORMAT- 
‚COM $12 = 18. 

Die restlichen 16 Bytes stellen eine Liste 
der vom File belegten Blöcke in der richti- 
gen Reihenfolge dar, in unserem Beispiel 
die Blöcke $02, $03 und $04. Belegt ein 
File weniger als 16 Blöcke, so wird mit 
Nullen aufgefüllt. Sind es mehr als 16 
Blöcke, wird ein zweiter Eintrag angelegt, 
der in der vorderen Hälfte ganz dem er- 
sten entspricht, nur Byte $0C wird auf $01 
hochgezählt und Byte $OF enthält natürlich 
die Records in diesem Eintrag (s. MBASIC 


Bit? =0 —e R/W 


















Abb. 2: Directory-Eintrag 


Die beiden Blöcke Ö und 1 (2K) bestehen 
aus 64 Eintragungen von je 32 Bytes Län- 
ge, die alle nach demselben Schema auf- 
gebaut sind und exakt die 2 Blöcke füllen. 
Abbildung 2 zeigt den Aufbau eines Ein- 
trags, Abbildung 3 ist der erste Teil des 
„CP/M System Master Directory“, wie ihn 
ein Sektoreditor listet. Byte $00 ist bei 
einem gelöschten File oder einem unbe- 
nutzten Eintrag gleich $E5, sonst ent- 
spricht es der „User-Number“, die zwi- 
schen $00 und $0F liegt. Im allgemeinen 
finden Sie hier nur $00 wie in unserem 
Beispiel. Die Bytes $01 bis $08 enthalten 
den Filenamen mit gelöschtem Bit 7. Ist 
der Name kürzer als 8 Zeichen, wird der 
Eintrag mit $20 aufgefüllt. Byte $09 bis 
$0B enthalten die 3 Zeichen des Filetyps; 
gegebenenfalls sind auch sie mit $20 auf- 
gefüllt. Normalerweise sind auch hier die 
Bit 7 gelöscht wie im Beispiel. Wäre das 
Bit 7 in Byte $09 gesetzt (hier also z.B. 


40 


Bit7 = 1 


Bit 07 ee 
Bit? = 1 


User | Name Typ Ext, Rec. l "Bisckliste 
oder | Bit/ = 0 
$E5 | 


—» R/O 


normal 
— Systemfile 





oder GBÄSIC). Bis zu 8 Einträge (Exten- 
sions) sind bei einem File theoretisch 
möglich, der die ganze Diskette füllt. Au- 
Ber bei Wörterbüchern bin ich solchen 
noch nicht begegnet. Sie könnten einen 
solchen File „am Stück“ mangels Spei- 
cherplatz nicht mehr laden. Die mehrfa- 
chen Einträge für einen File liegen nur bei 
„neuen” Disketten sauber hintereinander, 
können aber nach vielen Lösch- und 
Schreiboperationen über das ganze Direc- 
tory verteilt sein, wie ich durch unange- 
nehme Erfahrung lernen mußte. 

FORMAT.COM ist ein einfacher File. Er 
belegt $12 Records entsprechend 9 Sek- 
toren, von denen die ersten vier in Block 
602, die zweiten vier in Block $03 und der 
neunte in Block $04 liegen. Die restlichen 
3 Sektoren in Block $04 sind leer. MBA- 
SIC.COM ist ein File mit 2 Extensions, 
denn er belegt $80 + $40 = 192 Records 
in den 24 Blöcken von $06 bis $1D. Jetzt 


Abbildung 3: Directory-Anfang 


TRACK: 93 SECTOR: 98 CP/M DRIVE 2 
80 Dı 82 03 Ba 05 de 97 
8 59 BA OB BC AD BE BF ASCII 
8: BB A656 AF 52 AD Al 54 29 FORMAT 


2d 43 AF AD O8 Bo BB 12 COM...R 
18: 82 93 da 00 D0 Bo Da 98 BED +Yhır- 
DB BB BB BO DO DB DB 90 
20: dA 43 AF 50 59 20 208 29 
20 43 4F AD BB 00 Bd 08 COM. ..H 
30: 85 da do DB 90 BO BB 08 
28 00 20 DD DB 00 BO 9 


nalmia nd ale 


48: gg AD 42 Al 53 49 43 29 „MBASIC 
28 43 AF AD BB 00 00 80 COM... 
58: d6 07 08 693 BA GB BC BD FGHIJKLM 
ÖE ÖF 1B8 11 12 13 14 15 NOPORSTU 
60: BG AD A2 Al 53 49 43 28 .MBASIC 
20 43 AF AD Bl 90 06 40 COMA,.$ 
78: 16 17 18 19 1A 1B 1C 1D VWXYZAOU 
0 O0 Do ee eo de een 
80: BG 47 42 41 53 49 43 20 „GBASI 
29 43 AF AD BB DB BB 89 COM... 
ob: IF 20 21 22 23 24 25 26 a U4STR 
27 28 29 2A 2B 2C 2D 2E yt,—. 
AB: Ba 47 42 Al 53 49 43 29 „GBASIC 
2B A3 AF AD 81 BB Bd 48 COMA,.H 
Bö: 2F 30 31 32 32 34 35 36 /8123456 
37 98 DB 00 O0 DB Bd 9 Te! 
co: g8 43 AF AE 46 49 47 49 .„CONFIGI 
aF A2 Aal 53 GO BO 90 3A OBAS...: 
Dd: IE 38 39 3A 3B 3C 3D 3E 189 zen 
ad Bd Da de De 9 9 5 Dede 
Ed: #8 58 49 50 28 29 28 29 ‚„PIP 
28 43 AF AD BD DO BD 3A COM... 
Fß: AB 41 42 43 44 45 46 47 SABCDEFG 


DD DD DO DD DD ODE DO eunan. 
CTRL-B = BACK 
CTRL-S = SELECT 
CTRL-X = EXIT 


FORWARD = CTRL-F 
PRINT = CTRL-P 
OPTIONS = ESC 


wird es Ihnen sicherlich leicht fallen, auch 
die anderen Eintragungen zu entschlüs- 
seln. 

Wenn möglich, belegt CP/M aufeinander- 
folgende Blöcke. An CONFIGIO.BAS se- 
hen Sie, daß es hier auch Ausnahmen 
gibt. 


Files entlöschen 


Jetzt bin ich Ihnen nur noch die Auflösung 
schuldig, wie Sie gelöschte Files wieder- 
beleben. Mit einem Sektoreditor (z.B. 
ZAP) suchen Sie den Directory-Eintrag 
des gelöschten Files auf Spur 3. Haben 
Sie ihn gefunden, ersetzen Sie in Byte $00 
die $E5 durch $00 und schreiben den 
Sektor zurück. Ihr File „lebt“ wieder, wenn 
Sie nicht zwischenzeitlich seine Blöcke 
neu beschrieben haben. Bei einem File mit 
mehreren Extensions müssen Sie natür- 
lich alle Eintragungen zurücksetzen. 


Literatur: 

Worth/Lechner: Beneath Apple DOS, 
Quality Software 1981 

A.R. Miller: Programmieren mit CP/M, Sy- 
bex 1985 L 
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Wie zu Wozniaks Zeiten 


Als ich zum ersten Mal etwas vom Macin- 
tosh hörte, war ich ziemlich auf diesen 
Computer gespannt: MC68000-Prozes- 
sor, 128K RAM, gute Grafik, Maus, ähnli- 
ches Betriebssystem wie bei der LISA, all 
das versprach viel. Im Computergeschäft 
kam es dann auch zu den ersten Maus- 
Bewegungen, Bildverschiebungen und 
Malversuchen. Doch bald wollte ich als 
echter Computer-Freak dann auch einmal 
in den Mac hineinschauen, eigene Pro- 
gramme schreiben, das ROM untersuchen 
USW. 


Später kam das Microsoft-Basic heraus, 
aber damit konnte ich auch nicht so richtig 
in den Mac „reinsehen”, und Basic ist 
ohnehin nicht meine Lieblingssprache. 
Viel interessanter ist doch das Program- 
mieren in Assembler! Immerhin gab es die 
Befehle „PEEK“ und „POKE“. Damit 
konnte ich mir wenigstens im Computer- 


rn ara 
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UNOEDL - SET 

NOnEDE - SFT Zn 

EN - #26 

InooenE - 3E54 Dis DIE 
GooEnE _ te 

IUÖDE - TüRF 

InnaEı« irn 

on EN EEE 
NIDEIA - SIEH FEER 
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INOSESE - 4E!] 
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Abb. 1: Mac- Taktfrequenz 
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geschäft ein paar Bytes ausgeben lassen. 


Zu Hause wurde dann von Hand dis- 
assembliert, und siehe da: tatsächlich ein 
lauffähiges MC68000-Programm! Doch 
nachdem ich diese kurze Routine anna- 
hernd verstanden hatte, wollte ich wissen, 
wie sie weitergeht. Aber von Hand war 
dies alles viel zu umständlich. Deshalb 
sortierte ich den  Befehlssatz des 
MC68000 und schrieb schließlich einen 
MC68000-Disassembler in Basic. Bald 
wollte ich dann selbst die ersten Maschi- 
nenprogramme schreiben und ausprobie- 
ren. Also wurde der Disassembler „aufge- 
bohrt“, und so ist dann schließlich dieses 
Monitorprogramm namens MACMONI- 
TOR entstanden. Es simuliert den Monitor, 
den ich vom Apple Il her gewohnt war. 
Zudem sind einige Befehle funktionell er- 
weitert worden. Mit diesem Programm 
kann man sich dann wieder auf sicherem, 
sprich gewohntem Boden bewegen und 


== fippie il Monitor 


| 
HULIE Sh,-[H7; 
HILE KOT, Sf | 
Were -{R7) 
„SR 49? 
NINE, #7F,D1 
HELEN #FF,d 
NOUESL ÄATI.eATS | 
DER Dü,Els | 
DERR Um 
ELR.M (Ar) | 
En 1920 
ATE 


Appile-Il-Monitor ...... 
für den Mac 


die ersten Gehversuche unternehmen. Es 
gibt aber auch einige Nachteile: 

— Das Programm und das Basic-System 
belegen viel zuviel Platz im Speicher. Man 
ist immer irgendwie beengt. Und das bei 
123Kl 

— Es gibt kaum Unterlagen über das ROM 
des Macintosh. Es ist erstens 64K lang 
und zweitens so komplex {Interrupt-Routi- 
nen, Treiber usw.), daß man mit dem Un- 
tersuchen nicht so richtig vorankommt. 
Wie wird beispielsweise ein Zeichen aus- 
gegeben, wie liest man Zeichen von der 
Tastatur ein usw.? (Inzwischen weiß ich 
es; dazu an anderer Stelle mehr). Trotz- 
dem ist der MACMONITOR bei mir das 
meistbenutzte Programm. 


1. MACMONITOR-BEFEHLE 


Zunächst beschreibe ich die implemen- 
tierten Befehle: 


Speicherinhalt ausgeben 


{adrs} — gibt den Inhalt des Bytes mit der 
Adresse {adrs} aus. 

{adrs1}.{adrs2} — zeigt den Inhalt von 
allen Bytes zwischen {adrs1} und 
{adrs2}. 

RETURN-Taste - gibt den Inhalt von bis 
zu 16 weiteren Bytes aus, die nach der 
letztbenutzten Adresse folgen. 


Speicherinhalt verändern 


{adrs}:{val} {val} ... — speichert die an- 
gegebenen Bytes in aufeinanderfolgenden 
Adressen ab {adrs}. 

{val} {val} .. — speichert die Bytes ab 
der nächsten Adresse. 


Verschieben und Vergleichen 


{dest} <{start}.{end}M - kopiert den In- 
halt des Bereichs {start}.fend} in den Be- 
reich ab der Adresse {dest}. 

{dest} <{start}.{end}V - vergleicht den 
Inhalt des Bereichs {start!.{end} mit dem 
des Bereichs ab der Adresse !dest}. Un- 
terschiedliche Bytes werden ausgegeben. 


4 





Schreiben/Lesen auf/von Diskette 


{start}.{end}W —- schreibt den Inhalt des 
Bereichs {start}.{end} auf Disketie. Der 
Name der Datei wird vom Monitor erfragt. 
{start}R - liest eine Datei von Diskette in 
den Bereich ab der Adresse {start}. Der 
Name der Datei wird vom Monitor erfragt. 
Es wird die gesamte Datei eingelesen. 

R - wie der vorangehende Befehl, nur wird 
die Datei in den Bereich geladen, von dem 
aus sie gespeichert wurde. Dieser Bereich 
wird vom Monitor ausgegeben. 


Starten und Auflisten eines Pro- 
gramms 


{adrs}G - startet das Maschinenpro- 
gramm ab der Adresse {adrs}. In den 
Monitor muß mit einem „RTS"-Befehl zu- 
rückgekehrt werden. 

{adrs}L - gibi die ersten 10 Befehle des 
Programms ab der Adresse {adrs} disas- 
sembliert aus. Nachfolgende „L’-Kom- 
mandos zeigen jeweils die nächsten 10 
Befehle. 

(start\.{end}L — gibt das Programm im 
Bereich {start}.fend} in disassemblierter 
Form aus. 


Sonstige Befehle 


N - löscht den Eingabemodus. Dies wird 


benötigt, um nach einem „:"-Kommando 
andere Monitorbefehle ausführen zu kKön- 
nen, z.B. 


E00:4E 75 NEOOL 

Q - beendet den Monitor und kehrt zum 
Basic zurück. (Beim Apple Il: „Gtrl-C”.) 
(val}+{val} — addiert die beiden Werte 
und gibt das Ergebnis aus (bis zu 32 Bits). 
{val}-{val} — subtrahiert den zweiten 
Wert vom ersten und gibt das Ergebnis 
aus (bis zu 32 Bits). 

{slot}P - leitet die Ausgabe zu dem Aus- 
gabegerät mit der Nummer {slot} um. Es 
gibt die folgenden Nummern: 


0 — „SCRN:“ (Bildschirm) 

1- „LPT1:“ (Drucker) 

2 —- „COM1:“ (serielle Schnittstelle) 
3— „CLIP:“ (Zwischenspeicher) 


Alle anderen Nummern aktivieren den 
Bildschirm. (Beim Apple Il: „Otrl-P“.) 


2. ARBEITSWEISE DES 
PROGRAMMS 


Um das Programm im einzelnen verstehen 
zu können, sollte man vertraut sein 
—- mit dem Apple-Il-Monitor, 
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— mit dem Befehlssatz des MC68000 und 
—- mit dem Basic vom Macintosh. 

Der Apple-Il-Monitor ist z.B. im „Apple II 
Reference Manual“ aufgelistet und ausrei- 
chend erklärt. Alle Angaben zum 
MC68000 habe ich dem „MC68000 Be- 
nutzer-Handbuch“ entnommen. Das Mi- 
crosoft-Basic des Macintosh wird als Serie 
im „Peeker“ vorgestellt. 

Es folgen nunmehr Erläuterungen zu den 
einzelnen Abschnitten des Programms 
(mit den entsprechenden Zeilennum- 
mern): 


100 - Initialisierung der Variablen 

Im Speicher wird genügend Platz für alle 
Variablen geschaffen. Aus Platz- und Zeit- 
gründen werden alle Variablen, die nicht 
mit „A“ anfangen, als Integer-Variablen 
erklärt. Zwei Arrays werden definiert, der 
Bildschirm als Ausgabegerät bestimmt 
und die nicht-proportionale Schriftart „Mo- 
naco“ ausgewählt. Zum Schluß wird noch 
der Bildschirm gelöscht. Anschließend er- 
tönt der „$FF66-Beep“. Dieser Teil ent- 
spricht dem Bereich $FF59 bis $FF68 des 
Apple-Il-Monitors. 


200 - Kommandozeile einlesen 

Dies entspricht weitgehend der 
„GETLNZ“-Routine des Apple-Il-Monitors 
($FD67). Mit dem Befehl „Otrl-X“ kann 
man nun aber nicht mehr eine Zeile lö- 
schen. 

Die gesamte Kommandozeile wird in 
CMDS$ eingelesen. Als Endmarke wird ein 
„#" angehängt. Das „RETURN“-Kom- 
mando (Leerzeile) wird durch das Zeichen 
„&“ ersetzt. Der Zustand des Monitors 
(MODE, $0031) in der Variablen MDE wird 
auf O0 gesetzt. Dieser Teil entspricht dem 
Bereich $FF69 bis $FF72 des Apple-II- 
Monitors. 


300 - Nächste Zahl bestimmen 

Entspricht der „GETNUM"-Routine beim 
Apple-II-Monitor ($FFA7). Es wird die 
nächste Hex-Zahl im Kommandostring ge- 
sucht. Diese Zahl steht in A2 ($003E/ 
$003F). Falls MDE (Zustand) auf O gesetzt 
ist, wird die Zahl auch in Ai ($003C/ 
$003D) und in A3 ($0040/$0041) kopiert. 
Die Variable DIG wird auf 1 gesetzt, falls 
mindestens eine Hex-Ziffer gefunden wur- 
de, sonst bleibt DIG auf O gesetzt. Beim 
Apple-Il-Monitor übernimmt diese Aufga- 
be das X-Register. 

Das erste Zeichen, das keine Hex-Ziffer 
ist, wird in D$ übernommen. Beim Kom- 
mandostring CMD$ wird die Hex-Zahl und 
dieses letzte Zeichen gelöscht. 

Falls das Ende der Kommandozeile er- 
reicht wurde, wird das Leerzeichen-Pro- 


gramm ab Zeile 610 ausgeführt, und eine 
neue Zeile wird eingelesen. Dies ent- 
spricht der „CRMON"-Routine bei $FEF6. 


400 - Kommando ausführen 

Je nachdem, welches Zeichen in D$ steht, 
wird das dazugehörige Kommando ausge- 
führt. Dies entspricht dem Bereich $FF78 
bis $FF89 beim Apple-Il-Monitor. 

Die Ausführung der Kommandos ge- 
schieht fast wie beim Apple. Die Komman- 
dos „Leerzeichen“, „RETURN und 
„LIST“ haben jeweils ein eigenes Unter- 
programm, das weiter unten erklärt wird. 
Zu den Befehlen R(ead und Write kann 
noch gesagt werden, daß die Maschinen- 
programme wie ein „B-File“ beim Apple- 
DOS abgespeichert werden, also zuerst 
die Anfangsadresse und dann die Länge 
des Bereichs, dahinter die Bytes selbst. Je 
zwei Bytes werden mit der „MKI$"-Funk- 
tion als String interpretiert und so auf die 
Datei geschrieben. 


600 - Leerzeichen-Kommando 

Dies entspricht der „BL1“-Routine beim 
Apple-Il-Monitor ($FEOO). Im einzelnen 
gilt folgende Zuordnung zwischen Basic- 
Zeilennummern und Monitor-Adressen: 
610 - $FEO4 (BLANK) 

620 - $FEO7 u. $FEOB (STOR) 

630 — $FDC6 (XAMPM) 

640 - $FDD1 (ADD) 

650 - $FDD4 (Ausgabe des Ergebnisses) 
660 - $FDAD (MODSCHK) 

670 - $FDB3 (XAM) 

680 - $FDB6 (DATAOUT) 

690 — $FDCO (weiterzählen) 


700 - Adresse in Al ausgeben 
Gibt die Adresse in At mit 6 Hex-Ziffern 
aus. Dies entspricht der „PRA1“-Routine 
beim Apple-II-Monitor ($FD92). 


800 — Byte in WRD ausgeben 

Gibt das Byte in der Variablen WRD mit 2 
Hex-Ziffern aus. Dies entspricht der 
„PRBYTE“-Routine beim Apple-Il-Monitor 
($FDDA). 


Das gesamte nachfolgende Programm ist 
nur für die Disassemblierung der 
MC68000-Befehle zuständig. Dabei wird 
der disassemblierte Befehl in der Varia- 
blen D$ schrittweise aufgebaut. Die Länge 
des Befehls (in Worten) steht in der Varia- 
blen LNG, die Adresse des Befehls (der 
Programmzähler) in der Variablen A1. Die 
Variable G gibt die Operationsgröße an: 1 
bei Byte-, 2 bei Wort- und 4 bei Doppel- 
wort-Befehlen. 


Peeker 5/85 


900 - Sprungverteiler 

Gibt den nächsten Befehl ab Adresse A1 
disassembliert aus. Der Programmteil ab 
Zeile 900 dient dabei nur als Sprungveriei- 
ler: Die ersten 4 Bits des Befehls bestim- 
men, zu welcher Adresse gesprungen 
wird. Die Variable LNG, die die Länge des 
Befehls in Worten zählt, wird auf 0 gesetzt, 
ebenso die Variable Z, die angibt, mit wie- 
vielen Ziffern eine Hex-Zahl mindestens 
ausgegeben werden soll. 


1000 — Nächstes Wort in WRD holen 

Holt das nächste Wort ab der Adresse Al 
(Programmzähler) in die Variable WRD. 
Dabei wird Al um 2 weitergezählt. Die 
Variable LNG, die die Länge des augen- 
blicklichen Befehls in Worten mitzählt, wird 
erhöht. 


1100 — Nächstes Wort in O(0..5) und 
B(0..8) holen 

Holt das nächste Wort ab der Adresse A1 
(mit der Routine in Zeile 1000). Dieses 
Wort wird in Oktal- und Binärziffern aufge- 
spalten, Die Oktalziffern stehen im Array 
O, die Binärziffern im Array B (die nieder- 
wertigsten Ziffern in O(0) bzw. B(0)). Die- 
se Aufspaltung erleichtert später die Ent- 
schlüsselung der Befehlscodes. 


1200 — Operand in A mit Z Ziffern in W$ 
Diese Routine wandelt den Operanden in 
A in eine Hex-Zahl um. Die Hex-Zahl wird 
in den String W$ übernommen. Falls sie 
weniger Ziffern hat, als in der Variablen Z 
gefordert wird, werden vorne Nullen hin- 
zugefügt. Falls die Zahl mehr Ziffern hat, 
so wird sie aber nicht abgeschnitten. 


1300 — Hole G Bytes in W$ 

Ab der Adresse Ai werden G Bytes gele- 
sen. Diese Bytes werden als Hex-Zahl in 
W$ zurückgegeben. Dies dient dazu, Ope- 
randen darzustellen. Operanden, die | 
Byte lang sind (oder 3, 5, usw.), belegen 
im Speicher eine gerade Zahl von Bytes 
(Worteinteilung). Deshalb wird, falls z.B. G 
= 1 ist, nieht nur I Byte, sondern 2 Bytes 
geholt, von denen allerdings nur das zwei- 
te den Operanden enthält. 


1400 - Größe der Operation in G 

Bei den MC68000-Befehlen ist die Opera- 
tionsgröße (Byte, Wort oder Doppelwort) 
sehr oft in den Bits 6 und 7 bzw. in der 
Oktalziffer 2 codiert. Diese Routine be- 
stimmt nun in Abhängigkeit dieser Bits die 
Operationsgröße. Die Größe (1, 2 oder 4 
Bytes) wird in der Variablen G gespeichert. 
Die Größenbezeichnung (,„.B", „.W“ oder 
„.L") wird an den bisher erzeugten Be- 
fehlsstring in D$ angehängt. 
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1500 - Falscher Befehlscode 

Diese Routine wird immer dann ange- 
sprungen, wenn ein ungültiger Befehls- 
code gefunden wurde. In diesem Fall wird 
die Disassemblierung abgebrochen. In der 
Variablen D$, die den bisher disassem- 
blierten Befehl enthält, wird ein „??7” ge- 
speichert, Die Routine geht in den näch- 
sten Programmteil über: 


1600 - Zeile ausgeben 

Der disassemblierte Befehl wird ausgege- 
ben. In der Variablen A1 steht die Adresse 
des nächsten Befehls, in LNG die Länge 
des Befehls in Worten und in D$ der disas- 
semblierte Befehl. Es wird zunächst die 
Adresse des Befehls, dann der Befehl in 
Hex-Darstellung und schließlich in disas- 
semblierter Form ausgegeben. 


1700 - 
MOVEM 
Bei dem Befehl „MOVEM“ werden meh- 
rere Register auf einmal transportiert. Wel- 
che der 16 Register transportiert werden, 
steht in einem besonderen Wort nach dem 
Befehl. Die Routine wandelt dieses Wort in 
lesbare Form um. Dabei wird die soge- 
nannte „Registerliste” wie folgt ausge- 
geben: 

<ZAxXX, DXXxX> bzw. <DXXX, AXxxx>, 

wobei nach „A” die Nummern der Adreß- 
und nach „D” die Nummern der Datenre- 
gister stehen. Die Reihenfolge der Regi- 
ster richtet sich danach, mit welcher 
Adressierungsart die Register transporiiert 
werden. Diese Registerliste wird an den 
String D$ angehängt. 


Bestimme Registerliste für 


1800 — Bedingungscode entschlüsseln. 

In Abhängigkeit der Bits 8 bis 11 wird 
bestimmt, um welche Bedingung es sich 
handelt. Die Befehle „Bcc" und „DBcec" 
weisen ein paar Unregelmäßigkeiten bei 
den Bedingungen mit Code $0 und $1 auf. 
Die decodierte Bedingung wird in D$ zu- 
rückgegeben. 


2000-5999 - Befehl decodieren 

Die nächsten Routinen decodieren den 
MC68000-Befehl. Dies geschieht durch 
die Überprüfung einzelner Oktal- und Bi- 
närziffern sowie mit den bisher beschrie- 
benen Unterprogrammen ab Zeile 900. 
Auf die einzelnen Befehle kann ich hier 
nicht eingehen. Wenn man die MC68000- 
Befehle in ihrer codierten Form soriiert, 
kommt man schließlich auf eine mehr oder 
weniger ähnliche Einteilung, wie sie hier in 
dem Programm vorgenommen wurde. 


Noch ein Wort zu den „nicht implemen- 
tierten” Befehlen, die in den ersten 4 Bits 


„1010“ enthalten. Jedesmal, wenn der 
Prozessor auf solch einen Befehl trifft, wird 
ein „Trap“ (Unterbrechung) ausgelöst. 
Der Prozessor springt zu einer besonde- 
ren Routine (Adresse s.u.), die dann je 
nach dem Rest des Befehls aus einer Ta- 
belle eine Adresse im ROM holt und dort- 
hin springt. Auf diese Weise werden fast 
alle Routinen im ROM des Macintosh auf- 
gerufen. Man schiebt die Parameter auf 
den Stack, dann kommt der $Axxx-Befehl, 
und die Routine wird korrekt aufgerufen. 
Das geht zwar etwas langsamer als ein 
direkter Sprung, hat aber den Vorteil, daß 
bei einer (sicher noch öfter zu erwarten- 
den) Änderung des Monitors nicht alle 
Adressen geändert werden müssen, son- 
dern nur die Tabelle mit den Adressen. 


6000 - Bestimme EA (Effektive Adresse) 
Die vielfältigen Adressierungsarten des 
MC68000 sind fast alle sehr systematisch 
codiert. Deshalb benötigt man zur Deco- 
dierung nur diese Routine. 

Meistens (bis auf die Zieladresse im 
„MOVE"-Befehl) steht die Adresse in den 
Oktalziffern 1 (Modus) und O (Register). 
Anhand dieser beiden Werte wird die vor- 
liegende Adressierungsart entschlüsselt. 


3. MAC-TAKTFREQUENZ 


Ein kleines Maschinenprogramm soll als 
Beispiel angegeben werden, und zwar die 
Bestimmung der Taktfrequenz des Macin- 
tosh. Das Listing des Programms sieht 
man in Abb. 1. Es folgt eine kurze Erklä- 
rung der einzelnen Befehle: 


EOO — Statusregister auf Stack retten 

E02 - S-Flag setzen, Interruptmaske auf 7 
setzen (keine Interrupts mehr zulässig) 
E06 —- DO auf den Stack schreiben (Dauer 
des Tons) 

E08 - Uhnterprogramm im ROM zum 
Piepsen 

EOE — Zähler der äußeren Schleife (D1) 
auf $7F (128 Durchläufe) 

E12 - Zähler der inneren Schleife (DO) auf 
$FFFF (65536 Durchläufe) 

E14 - Dummy-Operation (macht nichts, 
aber benötigt Zeit) 

E16 - inneren Zähler erniedrigen und wie- 
derholen, falls Zähler nicht O war 

E1IA - äußeren Zähler erniedrigen und 
wiederholen, falls Zähler nicht DO war 

EiIE - O auf den Stack schreiben (Dauer 
des Tons) 

E20 - Unterprogramm im ROM zum 
Piepsen 

E26 - altes Statusregister vom Stack ho- 
len, Rücksprung in den Monitor 


43 





Es handelt sich also um zwei ineinander- 
geschachtelte FOR-NEXT-Schleifen, die 
in großer Zahl durchlaufen werden. Vor 
und nach den Schleifen wird ein Ton aus- 
gegeben, damit man die Zeit zwischen 
den Tönen stoppen kann. 

Wenn man aus dem MC68000 Benutzer- 
handbuch die Zeiten für die einzelnen Be- 
fehle heraussucht und alles zusammen- 
zählt (mit dem Unterprogramm zur Toner- 
zeugung!), so erhält man folgende Formel: 
418 + 18* Di + 32 x D1 x DO Takte. 
Soviele Takte vergehen also vom Aus- 
schalten des ersten Tons bis zum Ein- 
schalten des zweiten Tons. Die Variablen 
DO und D1 sind die Werte, mit denen die 
Zählvariablen geladen werden. (Für die 


MACMONITOR 


18 REM Simulation des Apple-II-Monitors 
ll REM Version 1.1 

12 REM von Pit Capitain 

188 REM 


i®1l REM ——- Initialisierung der Variablen —- 


192 REM 

118 CLEAR, 29890, 1824 

128 DEFINT B-Z 

136 DIM 0(5), B(8) 

148 OPEN "SCRN:' FOR OUTPUT AS #1 
150 CALL TEXTFONT (4) 
160 CLS : WIDTH 78 : BEEP 

280 REM 

281 REM —- Kommandozeile einlesen —. 
202 REM 


218 PRINT#l, : LINE INPUT "x"; CMD$ 


228 IF CMD$="" THEN CMD$="&#" ELSE CMD$ = CMD$ + "#" 


238 MDE=® 
390 REM 
361 REM —- Nächste Zahl bestimmen — 
382 REM 

316 A2=B : DIG=d 
328 D$=LEFT$(CMD$,1) 
358 IF D$="#'" THEN I=MDE : 


: CMD$=MID$ (CMD$, 2) 


358 I=ASC(D$) XOR 48 : IF I<l1® THEN 37% 
ELSE IF I<64 THEN 419 

360 I=I-193 : IF I<1® OR 15<I THEN al 

376 A2=A2#16+1I : DIG=] : 

389 GOTO 32% 

APP REM 

AQ1 REM -- Kommando ausführen — 

402 REM 

41® I=MDE : MDE=P 

428 IF D$=" " THEN GOSUB 61 : GOTO 319 

A368 IF D$="&" THEN A2=15+16*INT(A1L/16) 
GOTO 219 


AAG IF D$="+" OR p$="_." OR D$=";" OR D$="; !" 


THEN MDE=ASC(D$} 
458 IF D$="<" THEN Ad=A2 
468 IF D$="G'" THEN CALL Al 
470 IF D&<>"M" THEN 489 
ATl WRD=PEEK(Al) : POKE A4, WRD 
ara Ad=A4+l : Al=Al4H : 
488 IF D$="N" THEN 31% 
456 IF D$="Q" THEN CLOSE : END 
5öß IF D$<>"Y" THEN 510 
581 IF PEEK{Al) = PEEK(A4) THEN 54 
562 GOSUB 719 : WRD=PEEK{Al) : GOSUB 819 
503 PRINT#l, " ("} : WRD=PEEK (AA) 

PRINT#l, ")"; 
S5A4 Ad=AA4+tl : Al=Altl : 
518 IF D$<>"L'" THEN 52% 
51ll IF I<>46 THEN A2=-19 
512 GOSUB 91% : IF Al<=A2 THEN 512 
513 IE A2<ß THEN A2=AR+l : 
514 GOTU.319 
528 IF D$<>"W" 'THEN 53% 
521 IF A2<Al THEN AR=Al 


: GOTO 31% 
GOTO 318 
: GOTO 31 
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SCALE TEATSTZE (12) 


GOSUB 618 : GOTO 219 
348 IF "a"<=D$ AND D$<="z" THEN D$=CHR$(ASC(D$)-32) 


IF MDE=ß THEN Al=A2 : 


: GOSUB 66ß : 


IF Al<=A2 THEN 471 ELSE 31 


: GOSUB 819 : 


IF Al<=A2 THEN 581 ELSE 319 


IF A2<ß THEN 512 


ganz genauen Leser: die Änfangswerte 
+1, da die DBRA-Schleifen so lange 
durchlaufen werden, bis der Zähler -1 
($FFFF) erreicht hat.) 

Mit den Werten aus Abb. 1 (DO = 65536, 
Di = 128) ergibt sich die Zahl von 
268438178 Takten. Die Zeit, die der Mac 
dafür benötigt, beträgt ca. 48,65. Daraus 
ergibt sich eine Taktfrequenz von ca. 5,5 
MHz beim Zugriff auf das RAM, also deut- 
lich weniger als 8 MHz! (Beim Ausrechnen 
dieser Zahlen leistet der eingebaute Ta- 
schenrechner des Macintosh gute 
Dienste.) 

Wer genügend Zeit und Geduld hat, kann 
den Anfangswert der äußeren Schleife in 
$E10/E11 vergrößern, um dadurch länge- 


GOSUB 1ß1B : 


Aal: Z6: 


POKE Al+L, 
A=Al-1 : Z=6 
CLOSE #1 : 
D$="SCRN: "" 
D$="LPTL:" 
D$="COML:" : 
D$="CLIP:;" 
REM 

REM 

IF I=58 THEN 


Ad=A2 IF I MOD 2=$ 


A=Al+A2 


GOSUB 719 
WRD=PEEK(A1) 
Al=SAl+] : 
REM 


REM 


REM 
REM 
REM 


REM 
LNG=ß : ZB 


REM 
WRD=PEEK (Al) 


Al=Al+2 
REM 


REM 


IF Al<=A2 THEN 525 ELSE CLOSE #2 : 
IF D$<>"R" THEN 549 

LINE INPUT "Name : "; D$ : 
A2=CVD(INPUT$(8,#2) ) 


A2=CVD(INPUT$ (8, #2) ) 
WRD=CVI(INPUT$(2,#2)) 


OPEN D$ FOR OUTPUT AS #1 : 
BEEP : GOTO 219 


IF DIG=® THEN MDE=I : 


AS=AS+1l : MDE=I 


PRINT#]l, : A=Al !: 76 
PRINT#L, W5 ' - ®; 


A=WRD : Z2: 


re Zeiten und somit genauere Messungen 
zu erzielen. 


Zum Abschluß noch ein paar nützliche 
Adressen: 


$000400-0007FF — Tabelle mit den 1010- 
Trap-Adressen 

$0O00E00-O00FFF -— (meistens) 
Speicherplatz (im System-Heap) 
$01A700 - Anfang des Bildschirmspei- 
chers 

$400000 - Anfang des 64K-ROMs 
$40002A - Kaltstart 

$401018 -Adresse für Decodierung der 
1010-Traps 


freier 


LINE INPUT "Name : ": D$ 
OPEN D$ FOR OUTPUT AS #2 
PRINT#2, MKD$ (Al); MKD$(AR-AL); 


PRINT#2, MKI$(WRD); 
GOTO 319 


OPEN D$ FOR INPUT AS #2 

: IF Al=® OR DIG=ß THEN Al=A2 
GOSUB 1218 : PRINT WE "«"; 

: FOR I=8 TO A2 STEP 2 

: POKE Al, {WRD AND -256)\256 


WRD MOD 256 : Al=Alt2 


NEXT : CLOSE #2 


: GOSUB 1219 : PRINT W$ : GOTO 319 


IF D$<>"P" THEN 599 

ON AZ GOTO 543,544,545 
: GOTO 546 

: GOTO 546 


GOTO 546 


GOTO 319 


REM — Leerzeichen-Kommando -—- 


RETURN 
WRD=A2-256*INT (A2/R56) 
: RETURN 

THEN 678 ELSE IF I=45 THEN A2=-A2 


: POKE AS,WRD : 


IF A<ß THEN A=A+2132 
Z=4 : GOSUB 1218 : PRINT#l, "=" W$; 
IF Al>16xINT(Al/16) THEN 689 


: RETURN 


: GOSUB 818 : PRINT#1, " "; 


IF Al<=A2 THEN 668 ELSE RETURN 


REM -- Adresse in Al ausgeben —- 


: GOSUB 1219 : 
: RETURN 


REM —- Byte in WRD ausgeben — 


GOSUB 1219 : PRINT#1, W$; : RETURN 


REM ——- Sprungverteiler —. 


: GOSUB 111ß : IF 0(5) THEN 93% 

ON 0(4)+1 GOTO 2819,2419,2510,2619,2719,3919,4119,4218 
ON O(4)+1 GOTO 4319,461ß,481#,4919,5019,5319,5419,1519 
REM 


REM -- Nächstes Wort in WRD holen —. 


: IF WRD>127 THEN WRD=WRD-256 


WRD=WRD*256+PEEK (Al+1) 
: LNG=LNG+H1 : 


RETURN 


REM —- Nächstes Wort in 0(9..5) und B(®..8) holen -- 
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GOSUB 1P19 
FOR I=6 T05 
O(I}=WRD MOD 8 : IF I>2 THEN WRD=WRD\8 : GOTO 117% 
FOR DIG=d TO 2 
B(DIG+3#I)=WRD MOD 2 : WRD=WRD\2 
NEXT DIG 
NEXT I 
RETURN 
REM 
REM -- Operand in A mit Z Ziffern in W$ — 
REM 
w$="" : IF A<Ö THEN A=Ar2116 
WRD=A-256#*INT(A/256) : A=INT(A/R56) 
W$S=HEX$ ( WRD)-+W$ 
IF WRD<15 AND A>ß THEN W$="d"+W$ 
IF A>® THEN 1229 
IF LEN{W$)<Z THEN W$=STRING$ (Z-LEN (WE), "BO" )+HW$ 
RETURN 
REM 
REM —- Hole G Bytes in W$ — 
REM 
Aä=A : DIE=G 
GOSUB 1818 : IF DIG MOD 2=1 THEN WRD=WRD MOD 256 
DIG=DIG+1 
IF WRD<® THEN A=A+1 
A=Ax2T16+WRD : DIG=DIG-2 : IF DIG>B THEN 1329 
ELSE 1219 
REM 
REM -- Grösse der Operation in G — 
REM 
DIG=0{2) 
ON DIG GOTO 144ß, 1459, 1469 
D$=D$+".B " : G=1l : RETURN 
D$=D$+H" ıW : G=2 : RETURN 
D$=D$+H" .L : G=4 : RETURN 
D$=D$ +" _? : RETURN 
REM 
REM -——- Falscher Befehlscode —. 
REM 
Dg=eHrgen 
REM 
REM —— Zeile ausgeben — 
REM 
Al=Al-2xLNG : GOSUB 710 
FOR DIG=LNG TO 1 STEP —1 
GOSUB 1819 : A=WRD : Z=4 : GOSUB 1219 
PRINT#l, W6 " "; 
NEXT 
I=INSTR(D$," ") : IF I=6 THEN PRINT#], TAB(36) D$; 
RETURN 
PRINT#1, TAB(36) LEFT$(D$,I-1) TAB(44) 
MID$(D$,I+l); : RETURN 
REM 
REM -- Bestimme Registerliste für MOVEMN —. 
REM 
DIG=® : D$=D$+H"<" : IF O{1)=4 THEN 1759 
FOR I=ß TO 15 
IF WRD MOD 2=® THEN 1726 ELSE IF I<DIG THEN 1725 
IF I<8 THEN D$=D$+"D" : DIG=8 : GOTO 1725 
IF DIG>8 THEN D$=D$+"," 
D$=D$+"A" : DIG=16 
D$=D$+HEX$ (I MOD 8) 
WRD=WRD\ 2 
NEXT : GOTO 1749 
FOR I=# TO 15 
IF WRD MOD 2=$ THEN 1736 ELSE IF I<DIG THEN 1735 
IF I<8 THEN D$=D$+"A" : DIG=8 : GOTO 1735 
IF DIG>® THEN D$=D$+"," 
D$=D$+H"D" : DIG=16 
D$=D$+HEX$ (7-I MOD 8) 
WRD=WRD\ 2 
NEXT 
D$=D$+">" : RETURN 
REM 
REM -——- Bedingungscode entschlüsseln -—- 
REM 
DIG=B(8)+2*0 (3) 
ON DIG+1 GOTO 1849,1842,1844,1845,1846,1847,1848,1849 
ON DIG-7 GOTO 185%,1851,1852,1853,1854,1855,1856, 1857 
Ir 0(4)=6 THEN D$="RA" ELSE D$="T" 
RETURN 
IF 0{4)=65 THEN D$="SR" ELSE IF O(1)j=1 THEN D$="RA! 
ELSE D$="F" 
RETURN 
D$="HI" : RETURN 
D$="LS" : RETURN 
Dg="EENT TIRETURN 
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4 ASSEMbLER 4 


D$="CS" : RETURN 

D$="NE" : RETURN 

D$="EQ" : RETURN 

B$="Vecl! : RETURN 

D$="VS" : RETURN 

D$="PL'" : RETURN 

D$="MI" : RETURN 

D$="GE" : RETURN 

D$="LT" : RETURN 

D$="GT" : RETURN 

D$="LE" : RETURN 

REM 

REM -—- $ßxxx : unmittelbare Befehle —. 

REM 

IF B(8)=1 THEN 211® 

ON 0(3) GOTO 2BR2,2023,2024,2119,2025,2026,151% 
D$ = "ORI" : GOTO 293% 

D$ = "ANDI" : GOTO 2839 

D$. = "SUBRIT = C0T0 2930 

Dh NAEDIW I SEOTO 2930 

D$ = "EORI" : GOTO 2930 

DE = NCMPI" 

GOSUB 141P 

GOSUB 131® : D$=DS+H""Hıt4WSHT, " : GOSUB 6ß1ß : 
GOTO 161% 

REM 

REM — $ßxxx : Bit-Manipulation (statisch) —. 
REM 

IF B{8)=1 OR 0(3)<>4 THEN 2219 

G=1 : ON 0(2) GOTO 2149,2159,216% 

D$="BTST " : GOTO 28d4Ad 

D$S="BCHG '" : GOTO 2940 

D$="BCLR " : GOTO 20daf 

D$="BSET " : GOTO 2d4ad 

REM 

REM -—- $ßxxx : MOVEP —— 

REM 

IF O(1)} <> 1 THEN 2318 

D$="MOVEP" : DIG=1+B(6) : GOSUB 1429 

G=2 : GOSUB 131® : ON B(7) GOTO 225% 
D$=D$HWS+" (AT+HEX$(O(B) )+"),D"+HEXS(0(3)) : GOTO 1619 
D$=D$+H"D"HHEXS(O(3) JH", HWSH (ANHHEXS (OB) JH)" 
GOTO 161® 

REM 

REM -——- $ßxxx : Bit-Manipulation {dynamisch} -—- 
REM 

ON 0(2) MOD 4 GOTO 2339,2340,235% 

D$="BTST" : GOTO 2369 

D$="BCHG" : GOTO 2368 

D$="BCLR" : GOTO 2369 

D$="BSET" 

D$=D$+" D"'+HEX$(O(3) )+"," 2 GOSUB 6ß19ß : GOTO 1619 
REM 

REM —- $1xxx : MOVE.B -—— 

REM 

D$="MOVE.B" : G=1 

D$=-D$+H" " : GOSUB 681 : DI=DIH"," 

MDE=0 (2) : REG=0(3) : GOSUB 6929 : GOTO 161P 
REM 

REM -—— $2xxx : MOVE,L — 

REM 

G=4 : IF 0(2)=1 THEN D$="MOVEA.L" ELSE D$="MOVE,L'" 
GOTO 2428 

REM 

REM -——- $3xxx : MOVE.W-— 

REM 

G=2 : IF 0(2)=1 THEN D$="MOVEA.W" ELSE D$="MOVE,W'" 
GOTO 2429 

REM 

REM ——- $4xxx : LEA — 

REM 

IF 0(2)<7 THEN 2819 

D$="LEA " : G=4 : GOSUB 610 : 
D$=D$+" , AN+HEX$(0(3)) : GOTO 1619 

REM 

REM —— $dxxx : CHK — 

REM 

IF O(2)<6 THEN 2919 

D$="CHK" : G=2 : GOSUB 61 

D$=D$+H" , DY+HEX$(0(3)) : GOTO 161 

REM 

REM — $4xxx : NEGX, CLR, NEG, NOT — 

REM 

IF B{8)=1 THEN 151% ELSE IF 0(3)>3 THEN 311% 
ELSE IF 0(2)=3 THEN 381® 

ON 0(3} GOTO 2949, 2959, 2969 

D$="NEGX" : GOTO 2978 
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46 


2949 
2958 
2960 
2978 
3önB 
Soß1 
3d82 
3ß1B 
3026 
3030 


3849 


3198 
3181 
3182 
3118 
3128 
3130 
3146 
3159 
316% 
3176 
3209 
3201 
3292 
3219 
3228 
3238 
3240 
3241 
3258 
3358 
3361 
3382 
3316 
3329 
333% 
3409 
3401 
3402 
3418 
3420 
3430 
35088 
3501 
3582 
351® 
3528 
3536 
S5wp 
3661 


3692 
361ß 


3628 
3621 
3622 
3623 
3624 
3625 
3626 
3627 
3788 
3761 
3782 
3718 
3729 
373% 


3749 
3758 
3760 
3800 
3801 
3802 
3818 


3906 
3961 
3982 
3916 
3926 
3938 
3949 
3956 


D$="CLR" : GOTO 297% 

D$="NEG" : GOTO 2979 

D$="NOT'" 

GOSUB 141® : GOSUB 681% : GOTO 161% 

REM 

REM -—- $4xxx : MOVE mit SR bzw. CCR — 

REM 

ON 0(3) GOTO 1519,3039, 3949 

D$="MOVE SR," : G=2 : GOSUB 6B1B : GOTO 1619 
D$="MOVE " : G=2 ; GOSUB 6B1ß : D$=DE+",CCR" 
GOTO 161ß 

D$="MOVE " : C=2 : GOSUB 6819 : DI=D$H+", SR" 
GOTO 1619 

REM 

REM —— $4xxx : SWAP, EXT — 

REM 

ON 0(3)-4 GOTO 3319, 3410, 351 

IF O{1)>® OR 0(2)=® THEN 3219 

ON 0(2) GOTO 3149 ,3159, 3169 

D$="SWAP" : GOTO 3179 

D$="EXT.W" : GOTO 3178 

D$="EXT.L" 

D$=D$+" D"+HHEX$(O(B)) : GOTO 161P 

REM 

REM -- $4xxx : NBCD, PEA, MOVEM (Reg)-->(EA) — 
REM 

ON 0(2) GOTO 3239, 3249, 3240 

D$="NBCD " : G=1 : GOTO 3259 

D$="PEA " : G=4 : GOTO 3252 

D$="MOVEM" : DIG=1+B(6) : GOSUB 1429 

GOSUB 161® : GOSUB 1719 : D$=D$+"," 

GOSUB 601 : GOTO 1619 

REM 

REM -- $Axxx : TST, TAS —. 

REM 

ON 0(2) GOTO 3329,3329,333d 

DI="TST" : GOSUB 141ß : GOTO 3259 

D$="TAS " : G=l : GOTO 325% 

REM 

REM -——- $4xxx : MOVEM (EA)—->(Reg) -- 

REM 

IF B(7)=® THEN 151® ELSE GOSUB 1@1® : I=WRD 
D$ = '"'MOVEM" : DIG=1+B(6) : GOSUB 142B : GOSUB 619 
D$=D$+H"," : WRD=I : GOSUB 1718 : GOTO 161% 
REM 

REM -- $4xxx : JSR, JMP —. 

REM 

IF B{7)=ß THEN 3618 

G=4 : IF B{6) THEN D$="JMP '" ELSE D$="JSR " 
GOSUB 6B1ß : GOTO 1619 

REM 

REM -——- $4xxx : RESET, NOP, STOP, RTE, RTS, TRAPYV, 
RTR —. 

REM 

IF B(6)=® OR O(1)=7 THEN 151ß ELSE IF 0(1)<6 
THEN 3718 

ON 0(B) GOTO 3622,3623,3624,1519, 3625, 3626, 3627 
DI="RESET" : GOTO 1619 

D$="NOP" : GOTO 1619 

G=2 : GOSUB 1316 : D$="STOP #"+W$ : GOTO 161% 
D$="RTE" : GOTO 1619 

D$="RTS" : GOTO 1619 

D$="TRAPV" : GOTO 161% 

D$="RTR" :; GOTO 161d 

REM 

REM -— $4Axxx : LINK, UNLK, MOVE mit USP — 
REM 

IF O{l)<2 THEN 3818 

ON O(L)-2 GOTO 3749,3759,3769 

G=2 : GOSUB 131 : D$="LINK A'+HEX$(O(B) )+", #"4W$ 5 
GOTO 1619 

DE="UNLK AT4HEX$(0(B)) : GOTO 161P 

D$="MOVE A'+HEX$(O(B) JH" ,USP" : GOTO 1619 
D$="MOVE USP,A"+HHEX$(0(B)) : GOTO 1619 

REM 

REM — $4xxx : TRAP — 

REM 

A=0(B)+8xB(3) : GOSUB 121® : DE="TRAP #4W$ : 
GOTO 1619 

REM 

REM ——- $5xxx : ADDQ, SUBQ -- 

REM 

IF 0{2) MOD 4=3 THEN 4819 

IF B{B) THEN D$="SUBQ" ELSE D$="ADDQ" 
DIG=0({2) MOD A : GOSUB 1429 

DIG=0{(3) : IF DIG=ß THEN DIG=8 
D$=D$+""#""HHEX$ (DIG)+", " 















































































4d09 
Aadnl 
4002 
4819 


aß2B 
4830 


AaldB 
4181 
4192 
4119 
412ß 
4139 


ardg 
4261 
4282 
4210 
4228 
4236 
Aa3h0 
4361 
4362 
431% 
4326 
4330 
aad 
4401 
4402 
4410 
4420 


4430 
4590 
4501 
4582 
4519 
4520 
4530 
A540 
4690 
4601 
4602 
4610 
4620 
A630 
A700 
4781 
4782 
4710 
A729 
A880 
4861 
4882 
4810 
4829 
490 
4981 
4992 
4919 
4928 
4939 
A940 
4959 


50080 
5091 
5082 
5818 
5020 
5939 
518 
5161 
5182 
511® 
5128 
52088 
5281 
5262 
5210 
5229 
5238 
5240 


GOSUB 6ß1ß : GOTO 1619 


REM 

REM ——- $5xxx : Scc, DBcce — 

REM 

GOSUB 1818 : IF O{1)<>1 THEN D$="S"+D$+" " : G=l.: 
GOTO 3969 

D$="DB"+D$+H" DY+HEX$(O(P))+"," 


GOSUB 1B1B : A=Al-24+WRD : GOSUB 1216 : D$=DIHNS : 


GOTO 1619 

REM 

REM —- $6xxx : Boco — 
REM 


A=0(®)+8*x0(1)+64*(0(2) MOD 4) : IF A>127 THEN A=A-256 
IF A=® THEN GOSUB 1918 : A=Al-24WRD ELSE A=Al+A 
GOSUB 1210 : GOSUB 1818 : D$="B"+D$r" "ang: 


GOTO 1610 

REM 

REM —- $7xxx : MOVEQ -——- 
REM 


IF B{8)=1 THEN 151® ELSE D$="MOVEQ #" 
A=0(B)+8x0(1)+64x(0(2) MOD A) : GOSUB 121 
D$=-DE+WSH" ,D"+HEX$(0(3)) : GOTO 161P 


REM 

REM —- $8xxx : DIVx — 
REM 

IF 0(2) MOD 4<3 THEN 4419 


G=2 : IF B{8) THEN D$="DIVS " ELSE D$="DIVU " 


GOSUB 6818 : D$=D$+H",D"+HEX$(0(3)) : GOTO 161P 
REM 

REM —— $8xxx : SBCD — 

REM 

IF 0{2)<>4 OR O{1)>1 THEN 4518 ELSE D$="SBCD " 
IF B{3) THEN D$=D$+"-(A"+HEXS(OLB) +"), -(A" 
+HEX$(0(3))+")" : GOTO 1619 
D$=D$+H"D"+HEX$ (0 (Bd) )+",D"+HEX$(0(3)) : GOTO 1619 
REM 

REM —- $8xxx : OR — 

REM 

D$="OR" 

DIG=0(2) MOD 4 : GOSUB 1420 


IF B{8)=ß THEN 4339 


D$=D$+H"D"+HEX$(O (3) ) +," : GOSUB 6ß1ß : GOTO 1619 
REM 

REM -—- $9xxx : SUBA — 

REM 

IF 0(2} MOD 4<3 THEN 47108 ELSE D$="SUBA" 


DIC=1+B(8) : GOSUB 1428 : GOSUB 6P1P 

D$=D$+", ATA+HEX$(0(3)) : GOTO 1618 

REM 

REM -——- $9xxx : SUBX, SUB — 

REM 

IF B{8)=® OR O(1)>1 THEN D$="SUB" : GOTO 4529 
D$="SUBX" : DIG=0(2) MOD 4 : GOSUB 1428 : GOTO 4429 
REM 

REM — $Axxx : "Linie 1®1® Emulator!" —. 

REM 

Al=Al-2: LNG=LNG-1 : Z=4 : G=2 : GOSUB 1319 
D$="CALL ROM."+W$ : GOTO 1619 

REM 

REM —— $Bxxx : CMPA, CMP, EOR, CMPM — 

REM 

IF 0(2) MOD 4=3 THEN D$="CMPA" : GOTO 4629 

IF B{8)=® THEN D$="CMP" : GOSUB 1418 : GOTO 4339 
IF O{l)<>1 THEN D$="EOR" : GOTO 45208 

D$="CMPM" : DIG=0(2) MOD 4 : GOSUB 1429 

D$=D$+" (AT+HEX$(O (DB) +"), (AT+HEXS(O (3) +)" 


GOTO 161% 

REM 

REM —- $Cxxx : MULxX —- 
REM 


IF 0(2) MOD 4<3 THEN 511 
IF B{8) THEN D$="MULS " ELSE D$="MULU " 
G=2 : GOTO 433Ö 


REM 

REM -—- $Cxxx : ABCD — 

REM 

IF 0(2)}<>4 OR O{1)>1 THEN 5219 

D$="ABCD " : GOTO 4429 

REM 

REM -- $Cxxx : EXG, AND — 

REM 

IF 0{2)<>5 OR O{1)>1 THEN 5259 

D$="EXG " : ON B(3) GOTO 5248 
D$=D$+H"D""+HEX$(0(3) )+",D"+HEX$(0O(B})) : GOTO 161 
D$=D$+" AT+HEX$(O(3) )F" ,A"+HEX$(O(B)) : GOTO 1619 


IF 0(2)<>6 OR O(1)<>1 THEN D$="AND" : GOTO 452 
D$S="EXG D'+HEX$(0(3) )+",AT+HEX$(O()) : GOTO 161Q 
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Der Einsteiger 
Apple lle 64 KB 
Apple Monitor Il 
Apple Disk Il 
m. Contr. 
DM 3998,— 
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Der Vielseitige 
Apple Macintosh 
128 KB 
inel,. MacPaint/ 
MacWrite 
Tastatur und Maus 
DM 6776,- 

















Die Zuverlässige 
80 Zeichen’64 KRAM 
m. Pseudo-Floppy- 
Software u. ausführ- 
lichem Handbuch 
DM 298, — 
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Der Schöne 
Brother HR 15 XL 
Typenräddrucker, 
15 Z/sec. 
DM 1398,- 








Bei Abnahme von größeren 
Stückzahlen noch 
günstigere Preise 

möglich. 
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Macintosh 
Anwenderhandbuch 


enthält: 


e Einführung e Von Mäusen und 
Menüs e Fenster e Tastatur und 
Texteingabe e Dateien ®e Kleine 
Helfer e Zentralprozessor und 
Peripheriebausteine eBildund Ton 
e Maus und Tastatur e Disketten, 
Drucker, Kommunikation ® Text- 
verarbeitung e Malen mit der 
Maus e Kommunikation e Kalku- 
lation e Einblick in die Toolbox ® 
Pascal e BASIC und FORTH ® 
Macintosh und IBM PC im Ver- 
gleich u.v.m. 


156 Seiten, DM 39,80 


Fordern Sie unseren Gesamtprospekt an! 
Coupon ausschneiden und einsenden an: 
McGraw-Hill Book Company GmbH 

Lademannbogen 136, 2000 Hamburg 63 


Eee u Dec 


Bitte senden Sie mir den Gesamtprospekt 


Name 


Anschrift 


rrelectronic 


Elektronik - Fachliteratur - Personal-Computer 


BASF qualimetric® 
Disketten 1.Wahl 


BASF-Disketten softsektoriert in Pappkarton 
5,23°-Disketten alle ohne Aufpreis mit Yerstärkungsring 
Zyon _ Duschriknit 

KW 43 TPI, I-seitig, einfache Dichte 46,90 459,00 
IDY 49 TPI, 1-seitig, doppsite Dichte 49,50 484,50 
2/96Y_ 96 TPI, 2-seitig, doppelie Dichte 92,50 799,50 


3M Sicherheits-Disketten 
3.25--Diskatten mit Verstärkungsring; softsektorieri 

744-0 _ 43 TPi, I-esitig, dappelte Dichta 54,09 499,00 
743-0. 4A TPI, 2-seitig, doppelte Dichte 72,50 679,00 
747-0 _ 96 TPI, 2-seiltig, doppelte Dichte 89,50 855,00 


Disketten - Doubler 14.50 


Mit diesam Diskettenlocher können Sie auch die Rückseile 
Ihrer SS- 0. DS-Diskette zum Abspeichern von Daten nutzen 


9,20” - Plastikbox 9.95 
Formmschöne Klappbox aus Hart-PVC für ca. 16 Disketten in 
den Farben grün, orange, schwarz, heilgrau, elfenbein oder 
arıthrazit. Bitte die gewünschte Farbe angeben, Mischhbar 
Sioffeloreigse: 1 St. 5.95 10 St, 49.50 100 St. 459,- 


9,25" - Disketten-Kästen 
Diskettenbox ohne Schloß 24,95 


Repräsanlative Disketten-Box aus deutscher Fertigung In den 
Abmessungen (T x B x H) 306x174x144 mm ohne Schloß mil 
topas farbenem Deckel für ca. 80 Diekalten und 4 be- 
schriftbaren Stützplatten, Sehr pnrelewerti 


Diskettenbox 29.50 


aufklappbar 

für ca. 50 Disketten 

aus stoßfestem, antistetischem 
transparentem Acry! mit 4 beweag- 
Hchen, beechriftbaren Stützplatten 


DiskettenDox abschliesbar 39.50 


fur ca. 85-100 Disketten ae 
aus anttstetischem ABS-Kunstatoff, 4 
Decke} aus hochwertigem Acrylfrauch- 

glasforben) Der Trog kannpistzsparend „"- 

In den Deckal gasteilt werden, 9 beweg- 

lichen Unterteiler mit beschriftbaren 
Stützplatten sorgen für Übersicht 


En „in: 


. 
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Akustikkoppler s21d 289.- 


300 Baud Modern CCITT Y.21 Standard 


|| 


ULLI 
ec EG 
11 | Nee Tr 


* Mit FTZ-Nummer * Gebühren- u. anmeldefrei 
* Anschluß an alle Computer mit Y24-Schnitt 
stelle * Yoliduplexbetrieb * Answer- und 
Originate-Modus * MADE IN GERMANY * 


TELETERM 2Z+/e 198.- 


Telekommunikationssoftware für den Apple. 

* ohne serielles Interface * Datenübertragung 
über den Gameport * Anschlußfertig an s21d. 
Und das bietet Teleterm 2+/e: 

Kommunikation über den Bildschirm, Abspeichern empfang- 
enar Daten auf Diskette. Daten von Disk laden und senden 
Drucken emfangener Daten Einstellen der Kommuntkations- 
parameter Die Software für Kommunikations-Profts, 


Unser großer Hit auch für Ihren Apple //e: 


Bes 80 Zeichen/64kB-RAM 


Di Kur d R Alltatsnrodukt 
.uu 
| Inci Demo-Diekette, 290 ,- 


Ventilator für Apple 2+/e 99.- 
Yisie Zusatzkarten entwickeln zusätzliche Wärme und 
biockteren sogar noch den natürlichen Luftstrom. Der 
leistungsfähige, geräuscharme Ventilator, sorgt für die 
notvrendige Belüftung 


PER] MASTERCLOCK 325.- 
ae Incl. Demodisketila 

i_t:5u,,. Eu may Univorsallg Uhrenkarte 
A für Anpia //e und /7+ 


Läuft unter DOS, ProDOS und PASCAL 


2-80 Karte (ohne Sofware) 149.- 
ITOH/EPSON-Grafikkarte mkavsı 230 .- 
Serielle Karte f. Imagewriter 235.- 
RS-232-C-Karte (Seriell) 175.- 
Disk-Controller (0.Software) 175.- 
ERPHI-Controller AFDC-2 287.- 


Fremdlaufwerke mit höherer Kapazität; sowie 
kempleite Lösungen für Appie //e auf Anfrage. 


Apple//e, //c + Macintosh 
Vorführ- und Messegeräte 
preisgünstig abzugeben. 


Lodenvorkauf, Vorführung und fachnerschta Beratung 
rr electronic 


Elektronik » Feekliter atur : Persenai-Computer 

6900 Heidelberg | Breslauerstr, 29 Tel,0622 17751500 
Geschäftszeiten: Mo. - Fr 9-13 +14 - 18 Sa. 9 -i3 Uhr 
Yersandanschrift: 6900 Heidelberg I Dammvreg 2 











Apple DOS 3.3 

von Ulrich Stiehl 

2. Aufl. 1984, 203 S., kart., 
DM 28,- 


Dies ist die erste deutschspra- 
chige Darstellung des Disket- 
tenbetriebssystems DOS 3.3 
für den Apple II/II Plus/lle, die 
sich sowohl an Applesoft- als 
auch an Assembler-Program- 
mierer wendet. Sinngemäß ist 
das Buch zweigeteilt: 

Der erste Teil behandelt aus- 
führlich die dem Applesoft-Pro- 
grammierer zur Verfügung ste- 
henden DOS-Befehle, wobei 
die Textfiles wegen ihrer gro- 
Ben Bedeutung und der ver- 
gleichsweise komplizierten 
Handhabung besonders darge- 
stellt werden. Viele Textfile- 
Tricks werden hier zum ersten- 
mal geschildert. 

Aber auch im zweiten Teil fin- 
det der reine Applesoft-Pro- 
grammierer insbesondere in 
dem Kapitel „Vermischte Tips, 
Tricks und Patches“ zahlreiche 
Anregungen. Im übrigen ist der 
zweite Teil für Assembler-Pro- 
grammierer gedacht. Neben ei- 
ner detaillierten Beschreibung 
der DOS-Interna enthält dieser 
Teil elf vollständige RWTS-An- 
wenderprogramme -2.B. 
CPM-Refiner, DOS-lose Da- 
tendisk, TSL-Maker, File- 
Reader, Pseudo-Disk-Driver 
und Fastbrun-Routine —, die 
Techniken enthüllen, die bis- 
lang noch niemals publiziert 
worden sind. Dieses DOS- 
Buch ist deshalb der unent- 
behrliche Begleiter für jeden 
Apple-Programmierer. 


Apple Il 

Basic Handbuch 
von Douglas Hergert 
304 Seiten, 116 Abb. 
DM 32,— 


Das Buch ist als Nachschlage- 
werk konzipiert, daß seinen 
Platz neben jedem APPLE Il, 
II+ und Ile haben sollte. Es 
richtet sich an Anfänger und 
fortgeschrittene Program- 
mierer. 






Aus der Praxis heraus präsen- 
tiert der Autor Tips und Vor- 
schläge, die das Programmie- 
ren leichter und zugleich effi- 
zienter machen. Alle Applesoft- 
und Integer-BASIC-Begriffe 
sind alphabetisch aufgelistet 
und werden eingehend erklärt. 
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Dazu werden alle DOS-Befehle 
(neben vielen Begriffen der 
Computerterminologie) vorge- 
stellt. 

Beispielprogramme zeigen 
dem Nutzer, wie jeder Befehl 
funktioniert und helfen, die rich- 
tige Anwendung zu üben. Un- 
ter anderem lernt der Leser 
den besten Weg, um FOR/ 
NEXT-Schleifen und IF/THEN- 
Entscheidungen für seine 
Zwecke einzusetzen, 

Durch die präzise und leicht 
verständliche Sprache des Au- 
tors werden auch schwierige 
Befehle einfach in der Anwen- 
dung. 


Apple Maschinen- 
sprache 


von Don und Kurt Inman 
1984, 208 S., zahlr. Abb. und 
Tabellen, DM 49,- 


APPLE 





MASCHINEN 
_ SPRACHE 


DON INMAN - KURT INMAN 





Dieses Buch ist wahrscheinlich 
die beste Einführung in die 
6502-Programmierung für den- 
jenigen Assembler-Anfänger, 
der zuvor noch nie ein Maschi- 
nenprogramm geschrieben 

hat. 

Aus dem Inhalt: 

Applesoft II BASIC - kurzge- 
faßt - Alles über Zeichen - Al- 
les über Speicher — Alles über 
Maschinenbefehle - Maschi- 
nenprogramme mit BASIC ein- 
geben - Graphik — Text- Ton- 
Arithmetik -— Was tun mit den 
Maschinenprogrammen 


Apple Il 

leicht gemacht 

von Joseph Kascmer 

1984, 185 S., zahlr. Abb., kart., 
DM 28,— 


Dies ist ein Buch, wie es sich 
jeder Apple-Anfänger nur wün- 
schen kann: Schrittweise, 
leichtverständliche Anleitung 
zum Umgang mit dem Apple 
mit einigen durchsichtigen, un- 
komplizierten Beispielen in Ap- 
plesoft, die ihn nicht Abschrek- 
ken, sondern ermutigen sollen, 
sich mit dem Gerät näher ver- 
traut zu machen, Damit ist „Ap- 
ple Il leicht gemacht“ das idea- 
le Einsteigerbuch für den rei- 
nen Änwender, der nicht nur 
„auf den Knopf drücken“, son- 
dern zumindest einige Details 
aus der Black Box namens Ap- 
ple erfahren will. 





Aus dem Inhalt: 

Kontrolle des Geräts - Schrei- 
ben und Zeichnen auf dem 
Bildschirm -— Geheimnisvolle 
Abläufe: Programme - Ver- 
schiedene Eingriffsmöglichkei- 
ten — Mobile Speicher: Disket- 
ten — Kontrollmöglichkeiten — 
Das Innenleben 


Apple Assembler 
Tips und Tricks 


von Ulrich Stiehl 
1984, 226 S., 3 Abb., kart., 
DM 34,- 


„Apple Assembler“ wendet 
sich an alle, die bereits Anfän- 
gerkenntnisse der 6502-Pro- 
grammierung haben -z. B. 
aufgrund des Buches „Apple 
Maschinensprache“ — und nun- 
mehr ein Nachschlagewerk für 
ihren Apple II Plus/lle/llc su- 
chen, in dem alle wichtigen 
ROM-Routinen sowie eine 
Vielzahl sonstiger Hilfspro- 
gramme in einer systemalti- 
schen Form zusammengestellt 
werden. Insgesamt umfaßt die- 
ses Buch über 40 Utilities, dar- 
unter mehrere völlig neuartige 
Programme wie Double-Lores, 
Double Hires, Screen-Format 
u.a. 

Der erste Teil enthält ein Repe- 
titorium der wichtigsten Befeh- 
le, Adressierungsarten und 
sonstigen Besonderheiten des 
6502. 

Im zweiten Teil werden alle 
Adressen des Monitors zusam- 
mengestellt, die für Assembler- 
Programmierer von Nutzen 
sein können. Darüber hinaus 
findet der Leser Unterroutinen 
für hexadezimale Addition/ 
Subtraktion/Multiplikation/Divi- 
sion, Binär-Hex-ASCII-Um- 
wandlung usw. 

Der dritte Teil befaßt sich mit 
der Speicherverwaltung der 
Language Card und der Ile- 
64K-Karte und enthält Move- 
Programme zum Verschieben 
von Daten in die und aus der 
Language Card sowie der 64K- 
Karte. 





A-SHOF 


Der vierte Teil ist dem Ap- 
plesoft-ROM gewidmet und li- 
stet eine große Anzahl nützli- 
cher Interpreter-Ädressen. Bei 
den Utility-Programmen liegt 
das Schwergewicht auf Fließ- 
kommamathematik einschließ- 
lich Print Using. 

Der letzte Teil behandelt den 
Text- und Graphikspeicher. 
Neben einem professionellen 
Maskengeneratorprogramm 
werden auch Routinen zur 
Double-Lores- und Double-Hi- 
res-Grafik vorgestellt, 


Arbeiten mit dem 
Macintosh 


von N, Hesselmann 
416 Seiten, 320 Abb. DM 54,- 


Das Buch erklärt den Umgang 
mit dem Macintosh von Grund 
auf, wobei auch auf elementare 
Dinge eingegangen wird, wie 

2. B: die Benutzung der Tasta- 
tur und der Maus, das Einlegen 
von Disketten und den System- 
start. Ganz besonderes Augen- 
merk wird auf die Erklärung der 
speziellen Software-Umge- 
bung des Macintosh gelegt, 
wobei das Menü- und Fenster- 
konzept sowie das Anwählen 
durch Piktogramme gekenn- 
zeichneter Funktionen klar dar- 
gestellt wird. 






Tell Wa 2} 
 lalıid 27], 

Der Umgang mit den Program- 
men MacPaint und MacWrite 
wird erläutert; dies geschieht 
teilweise anhand von Beispie- 
len, die leicht nachvollzogen 
werden können. Ein umfangrei- 
ches Kapitel ist dem für den 
Macintosh erhältlichen Micro- 
soft-BASIC gewidmet. 


BASIC Ubungen 

für den Apple 

von J. P. Lamoitier 

1983, 252 S., zahlr. Abb,, kart., 
DM 38,- 


Das Buch ist konzipiert, allen 
Apple-Anwendern Applesoft- 
BASIC durch praktische Übun- 
gen an Hand von reellen Pro- 
grammen beizubringen. Daten- 





verarbeitung, Statistik, kom- 
merzielle Programme, Spiele 
und vieles mehr. Jede Übung 
beinhaltet eine Beschreibung 
der Problemstellung, eine Ana- 
lyse der Lösungsmöglichkei- 
ten, ein Flußdiagramm und ein 
fertiges Programm samt Pro- 
belauf. 


Aus dem Inhalt: 
Ihr erstes BASIC-Programm — 
Flußdiagramme — Übungen mit 
Integerzahlen — Elementare 
Beispiele aus der Geometrie — 
Allgemeine Übungen aus der 
Datenverarbeitung — Mathema- 
tische Berechnungen - Kauf- 
männische Berechnungen — 
Spiele - Operations Research 
— Statistik 


Apple ProDOS 
für Aufsteiger 
Band 1 


von Ulrich Stiehl 
1984, 202 S., kart., DM 28,- 


ProDOS ist das neue „profes- 
sionelle DOS“ (Professional 
Disk Operating System) für den 
Apple Ile sowie den mit einer 
Language Card ausgestatteten 
Apple II Plus. Band 1 befaßt 
sich mit den theoretischen 
Grundlagen von ProDOS, der 
internen und externen Spei- 
cherorganisation und enthält 
grundlegende Beispielpro- 
gramme für Assembler-Pro- 
grammierer sowie generelle 
Untersuchungen zum BASIC- 
SYSTEM. Da ProDOS über er- 
heblich vielfältigere und lei- 
stungsfähigere, zugleich je- 
doch erheblich kompliziertere 
Dateistrukturen verfügt, sind 
theoretische Kenntnisse von 
ProDOS unabdingbar, wenn 
man die Features von ProDOS 
voll ausschöpfen will. 

Aus dem Inhalt: 

Ein erster Überblick - ProDOS 
und DOS 3.3 - Interne Spei- 
cherorganisation — Externe 
Speicherorganisation — MLI 
(Machine Language Interface) 
—- ProDOS für Applesoft-Pro- 
grammierer 


Beachten Sie die Buch-Shop-Karte 
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Betriebssystem CP/M 
Vom Monitorprogramm zum 
Mehrbenutzersystem. 

Von Jürgen Plate. 

1984, 351 Seiten, 30 Abb., 

3 Tab., geb., DM 56,- 





heut 


Das Buch beschreibt ausführ- 
lich die Kommandos, ihre 
genaue Syntax und die einzel- 
nen Teilprogramme von CP/M 
wie BIOS (systemspezifischer 
Teil), ED (Editor), ASM (Asem- 
bler, inklusive einer Beschrei- 
bung des 8080-Befehlssat- 
zes), SYSGEN und STAT. 

Der Beschreibung von CP/M 
ist das Listing eines komfor- 
tablen Monitorprogramms für 
Z-80-Computer vorangestellt, 
das eine elementare Program- 
mierung auf Maschinenebene 
erlaubt, solange man CP/M 
noch nicht geladen hat. Das 
kann z. B. zur Fehlersuche 
sehr nützlich sein. Am Schluß 
des Buches findet sich auch 
eine Kurzbeschreibung der 
Multitasking-/Multiuser- 
Betriebssysierne. 


Das Buch zum Apple ll 
von Erich Esders 

1985, 210 S., 119 Abb., geb, 
DM 54,— 


Wenn hier vom Apple Il 
gesprochen wird, so gilt das 
auch für den Ilplus, den lleuro- 
plus und die lie-Versionen 
sowie für den ganzen „Äpple- 
Nachbau“. Das Buch ist ein 
Wegweiser durch diesen 
Rechner, um mit ihm schneller 
und effektiver zu arbeiten. Es 
geht hier weniger um das ele- 
mentare Programmieren des 
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Rechners, sondern um 
Assemblerprogramme, die 
extensiv Monitor-ROM- 
Subroutinen benutzen. Diese 
hat der Autor nach Sach- 
gebieten geordnet, zB. 
Mathematik, Graphik, String- 
Bearbeitung + Disassembler- 
Listings und diese wiederum 
mit Erklärungen und Applika- 
tionen komplettiert. Eine aus- 
reichende Dokumentation ist 
dabei immer gewährleistet. Sie 
geht schrittweise vor, von der 
Aufgabenstellung über die 
Programmentwicklung bis zum 
lauffähigen Maschinenpro- 
gramm. Die angebotenen Bei- 
spiele sind ausbaufähig und 
lassen der eigenen Kreativität 
reichlichen Spielraum. Viele 
neuartige Tips und Tricks wird 
auch der beschlagene Apple- 
Benutzer begrüßen. 

Aus dem Inhalt: 

Der Mikroprozessor des 
APPLE Il. Der APPLE Hl und 
seine Speicheraufteilung. 
APPLESOFT und seine 
Arbeitsspeicher-Bereiche. Der 
MICROSOFT-Basic-Inter- 
preter: Die Zeichen-Lese- 
Routine. Interpretierer und 
Lokalisierer. Handler-Routi- 
nen. BASIC/Maschinen- 
sprache-Interfaces. 
DISAS-Generator. Unterpro- 
aramme im APPLESOFT- 
Basic-Interpreter: Softschalter 
und -Flags. Ausdrucks-Inter- 
pretierer. Low-Resolution- 
Graphik. Fehler-Behandlung. 
Applikationen: Arithmetik- 
Demonstration „FP-CALC*. 
Hex-Dumps der Applikationen. 
BASIC-Monitor BASMON/D: 
Vorstellung der neuen Kom- 
mandos. Das Programm 
„BASMON/D". Implementie- 
rung und Laufbeispiele. 
BASIC-Interpreter-Vergleich 
APPLE II - Commodore 64: 
Arithmetik-Demonstration 
„FP-CALC/64“. Listen: Die 
Token des APPLESOFT-Basic. 


Apple IIROM Listing 
von Matthias Buck 
1984, 116 S., Kart., DM 59,- 


«apple II 


It, 11°, Ie, Ile 


En IT 
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Listing 
| für Appteralt-BAJIc- 
| Interprater 





MIKROCOMPUTER 


Das deutsche Apple-Il-ROM- 
Listing ist da! 

Einleitung zum prinzipiellen 
Ablauf des Applesoftinter- 
preters: 

® Aufbau und Verarbeitung 


der/des Programmtextes - 
Variablentabelle - String- 
space - Hießkommaformate 
- Basicstacks (GDSUB, 
FOR-NEXT, ...) 

® Beschreibung der wichtig- 
sten Unterprogramme, z.B. 
Variablensuche, Garbage 
collection, Ausdrucksaus- 
wertung, CHRGET, ... 

® Vollständig disassemblierte 
und sehr ausführlich 
deutsch kommentierte Auf- 
listung des Applesoft- 
BASIC-Interpreters 

® Übersichtliche Auflistung 
aller vom Interpreter benutz- 
ten RAM-Zeilen mit allen 
Verwendungszwecken 

® Über 150 ausführlich doku- 
mentierte Unterprogramme: 
- Funktion 
- Ein/Ausgabeparameter 

Auch für Apple-lle und c und 

Kompatible! 


Apple ll Pascal 

Eine praktische Anleitung 
von Arthur Luehrmann und 
Herbert Peckham 

1982, 544 S., kart., DM 59,- 





Dieses Buch ist unentbehrlich 
für alle, die die Programmier- 
sprache PASCAL lernen 
wollen und Zugang zu einem 
Apple Computer haben. 

Sie benötigen keinerlei Vor- 
kenntnisse, sondern lernen an 
Hand von Beispielen und 
Übungen, wie man selbst 
PASCAL-Programme entwik- 
kelt und sie austestet und 
werden allmählich von Kapitel 
zu Kapitel vertrauter im 
Umgang mit dem Apple 
Computer. 


Start mit Apple-Logo 
für II, He und Ilc 

Das kleine Logo-Einmaleins: 
Grafik » Text +» Musik 

Von D. Senftleben 

1985, 222 Seiten, DM 35,- 


Viele Mikrocomputer-Her- 
steller bieten für ihre Geräte 
neben BASIC und anderen 
Programmiersprachen 
zunehmend auch Logo an. 
Durch ihre Benutzerfreund- 
lichkeit hat diese Sprache 
bereits viele Freunde im 
Ausbildungs- und Freizeitbe- 


inch ndiklun 


Startmit 
Apple-Loge für 
lell, He und Ike 













reich gefunden. Dabei ist 
Logo eine mächtige 
Sprache, die auch dem 
anspruchsvollen Anwender 
kaum Wünsche offenläßt. 
Mittels Schildkrötengrafik 
wird das kleine Logo-Einmal- 
eins in 12 Lektionen entwik- 
kelt. Große Bildschirmfotos 
begleiten den Leser durch 
die Lektionen. Das Buch ver- 
langt aktive Mitarbeit. Es hat 
seinen Piatz neben dem 
Computer und gibt Hilfen 
und Anregungen für eigenes 
Forschen. Dank des bau- 
steinorientierten Konzepts 
Kann jeder seine eigenen 
Teilbausteine erzeugen und 
sie zu neuen Blöcken 
zusammenfügen. Neben 
dem Einmaleins werden 
neue Einsatzbereiche für 
den Einsteiger erschlossen. 
Musik und Sound fehlen 
nicht. 

In diesem Buch werden die 
beiden offiziellen Logo-Pro- 
dukte der Firma Apple für die 
Rechnerfamilie Apple Il, Ile 
und IIc behandelt und deren 
Unterschiede verdeutlicht. 
Weiterhin sind sämtliche 
Apple-Logo-Vokabeln über- 
sichtlich zusammengestellt. 
Dieses Buch ist ideal zum 
problemlosen und vergnüg- 
lichen Start in die Apple- 
Logo-Welt. 


Apple ll 
Anwenderhandbuch 


von Lon Poole 
1982, 450 S., zahlr. Abb,, 
kart., DM 56,- 





1 
















Auch für diesen Computer 
haben wir den richtigen Leit- 
faden. Er erspart Ihnen zeit- 
raubendes und nutzloses 
Suchen nach der wirklich 
verwendbaren Dokumenta- 
tion für Ihren Computer. Das 
Anwenderhandbuch 
beschreibt zum einen den 
beliebten Apple Il-Computer 
als solchen und gibt zum 
anderen ausführlich Aus- 
kunft über die normalen 
Peripheriebausteine und 
Zubehör einschließlich Disk- 
Laufwerken und Drucker. Mit 
Hilfe dieses Buches werden 
Sie Ihren Apple Il erfolgreich 
einsetzen, denn der Informa- 
tionsgehalt geht weit über 
das hinaus, was hersteller- 
seitig an Literatur angeboten 
wird. Sie lernen BASIC auf 
zwei verschiedene Arten zu 
verwenden. Wie man den 
Gebrauch von Klang, Farbe 
und Grafik zum Optimum 
führt. Sie erhalten Tips für 
fortgeschrittene Programm- 
erstellung. Sie erfahren die 
Verwendung des Maschi- 
nensprachen-Monitors 
u.v.m. Mit dem Apple Il- 
Anwenderhandbuch werden 
Ihnen alle Möglichkeiten 
eröffnet, die in diesem Com- 
puter stecken. 


Apple Il Pascal 
Sprache 


1985, 197 S., DM 39,- 





Apple Il Pascal 


Betriebssystem 
1985, 256 S., DM 49,- 
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REM 6A3B D$=D$H"D"+HEX$(REG) : RETURN 

REM —— $Dxxx : ADDA, ADD, ADDX —— 6BAB D$=DEHF"A"+HEX$S (REG) : RETURN 

REM 6B5B DI=DEF" (AN+HEX$(REG)+")" : RETURN 

IF 0(2) MOD 4=3 THEN D$="ADDA" : GOTO 4629 SCH DI=DEH" (AT+HEXS(REG)+")+" : RETURN 

IF B{8)=8 OR O(1}>1 THEN D$="ADD" : GOTO 4529 6878 D$=DIH"-(A"+HEX$(REG)+")" : RETURN 

D$="ADDX" : DIG=0(2) MOD 4 : GOSUB 141% : GOTO 4429 6 2 : GOSUB 1319 : D$=DIHW$ : GOTO 6959 

REM S1BB G=2 : ZeA : GOSUB 1319 : DIG=ASC(MID$(W$,2,1})-48 
REM — $Exxx : Speicher-Verschiebe-Befehle — 6118 IF DIG MOD 8>ß THEN 63@% ELSE DIG=1+DIG\8 

REM 6129 IF MID$(W$,3,1)<>"B" THEN D$=D$+MID$ (#$,3.,1) 

IF 0{(2) MOD 4<3 THEN 5519 ELSE IF 0(3)>3 THEN 151® 6139 DI=DSHRIGHTS (WS, 1)+" (" 

ON 0(3) GOTO 5422 ,5423,5424 6148 IF REG>7 THEN D$=D$H"PC" ELSE D$=D$+" A" +HEX$ (REG) 
D$="AaS" : GOTO 5439 6158 REG=ASC(LEFT$(W$,1))-48 : IF REG>9 THEN REG=REG-7 
D$="LS" : GOTO 5439 6168 IF REG<B THEN D$=D$+",D" ELSE D$=D$+", A" 

D$="ROX" : GOTO 5439 6176 D$=D$+HEX${REG MOD 8) : GOSUB 1429 : 

D$="RO" MID$(D$,LEN{D$) )=")" : RETURN 

IF B{8) THEN D$=D$+r"L " ELSE D$=D$H"R " 6286 ON REG GOTO 6210, 622#,6230, 6249, 6399, 6309, 6399 

G=2 : GOSUB 6818 : GOTO 1619 6216 IF REG THEN G=4 ELSE G=2 

REM 6211 GOSUB 1318 : D$=D$+W$ : RETURN 

REM — $Exxx : Register-Verschiebe-Befehle — 6220 GOSUB 1018 : A=Al-24HRD : GOSUB 1219 : D$=D$MS : 
REM RETURN 

ON O{1l) MOD 4 GOTO 5512,5513,5514 6230 REG=8B : GOTO 61P9 

D$="AS" . GOTO 552P 6249 IF 0(5)+0(4)+B(8)>® OR 0(3)>1 AND 0(3)<>5 THEN 6279 
D$="LS" : GOTO 5526 6250 IF G>2 THEN 6368 ELSE IF G=1 THEN D$=D$H"CCR" 
D$="ROX" : GOTO 5528 ELSE D$=D$H"SR" 

D$="RO"" | 6269 RETURN 

IF B{8) THEN D$=D$+"L" ELSE D$=D$H"R" 6278 GOSUB 1310 : D$=D$+H"#"+W$ : RETURN 

DIG=0(2} MOD 4 : GOSUB 142ß : ON B(5} GOTO 5569 | 6388 D$=D$+H"?EA?" : RETURN 

DIG=0(3) : IF DIG=® THEN DIG=8 | 

D$=D$+"#"+HEX$ (DIG)+",D'"+HEX$(0(9)) : GOTO 161Q Hinweis: Der MACMONITOR befindet sich nicht auf 
DE=D$+"D"+HEX$(0(3))+",D"+HEX$(0(B)) : GOTO 1619 den üblichen 5,25-Zoll-Peeker-Sammeldisketten, 
nn Sie können ihn jedoch für DM 38,- als 3,5-Sony- 
REM — Bestimme EA (Effektive Adresse) —- Macintosh-Diskette bestellen. Beachten Sie aber, 
REM daß diese Diskette nur das Programm und nicht 4 


MDE=0(1) : REG=0(B) zusätzlich das Microsoft-Basic enthält. 
ON MDE GOTO 6049, 6059 ,6069,6079,6080,6199,6200 





nn .. Wer kennt nicht die häßliche „?EXTRA 

INPUT für alle Fälle IGNORED“-Meldung des Applesoft-Inter- 
preters nach Eingabe von Kommas oder 

Tastatur - DOS - ProDOS Doppelpunkten beim INPUT-Befehl. Was 
von Harald Grumser im interaktiven Programm die schönsten 
Bildschirmmasken zerstört und beim un- 

INALL.DATA bedarften Anwender den Glauben an die 
gute deutsche Software ins Wanken 

18 FOR I = 768 TO 793: READ A: POKE I,A: NEXT : k : : e 
20 DATA 32,6,227,32,190,222,32,227,223,32, 168, bringt, wird beim Einlesen von Textdatei- 
221,133,133,132,134,32,44,213,209, 32,233, en, die diese Zeichen enthalten (welcher 


227,76,154,218 


s . 
ee Text beinhaltet kein Komma?) zum Pro 


grammierspektakel. 
(Dieses im letzten Peeker bereits abgedruckte Programm E ae : e 
enthielt 2 Tippfehler [277 statt 227]. Deshalb durcken wir Eine Lösung stellt die hier vorgestellte 


es erneut ab.) INALL-Routine dar, die sowohl die Einga- 
be von Kommas und Doppelpunkten un- 


INALL terstützt als auch Hochkommas im Einga- 


: a bestring erlaubt. Sie simuliert den INPUT- 
3 ORG $309 Befehl und kann aus jedem Applesoft-Pro- 
s u gramm, sowohl unter DOS als auch unter 
6 _FORPNT EQU $85 ProDOS, aufgerufen werden. Der Aufruf 
ee a erfolgt durch „CALL 768,A$“, wobei an 
9  CHKSTR EQU S$DD6C Stelle von A$ jede Stringvariable (keine 
n en a en numerische Variable) benannt werden 
12 ERRDIR EQU $E3B6 kann (max. Länge 239 Zeichen). Da auf 
13  STRLITI EQU $ESEI die Benutzung des Ampersand-Vektors 
d300: 20 06 E3 we ee leerer verzichtet wurde, kann die Routine mit 
#363: 26 BE DE 16 JSR  CHKCOM :Komna? dem INALL.DATA-Programm zu jeder Zeit 
Da er in den Speicher gepokt oder direkt durch 
Bspc: 85 85 19 STA FORPNT ;Zeiger „BLOAD INALL" geladen werden, nach- 
B3BE: 84 86 28 STY FORPNT+L’ ; eintragen dem sie mit „BSAVE INALL,A$300,1_26“ 
B310: 2B 2C D5 21 JSR INLIN ;Zeile holen 2 : 
B313: C8 22 INY :$1IFF -> $209 gesichert wurde. Das Maschinenpro- 
B314: 20 EI ES 23 JSR STRLITl  ;Descriptor gramm ist verschiebbar und läuft somit in 
B317: AC 9A DA 24 JMP STRCPY ‚eintragen jedem Speicherbereich, wobei 768 dann y 
26 Bytes natürlich entsprechend zu ändern ist. = 
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ProDOS 


von Ulrich Stiehl 





Im Gegensatz zu DOS 3.3 sind ProDOS- 
Datenträger blockmäßig organisiert, wobei 
1 Biock = 2 Sektoren = 2 mal 256 Bytes 
= 512 Bytes entspricht. Wenn man auf der 
Ebene des sog. MLI = Machine Language 
Interface programmieren möchte, ist es 
nützlich zu wissen, in welcher Form das in 
der Language Card befindliche PRODOS 
auf externe Datenträger (Disketten, RAM- 
Disks, Festplattenlaufwerke) zugreift. 
Hierzu dient das Analyseprogramm 
Block-Tracer, das in zwei Versionen ge- 
schrieben wurde: Die DISK-II-Version ist 
für die normalen Apple-Laufwerke und die 
RAM-Disk-Version für die 64K-Karte des 
Apple lie/llc gedacht. Die letztere Version 
ist ungefährlicher, zumal der RAM-Disk- 
Inhalt unter ProDOS ohnehin nur für un- 
wichtige Dateien benutzt werden sollte, 
denn der Inhalt wird durch jedes Neuboo- 
ten automatisch gelöscht. 


Warnung: 
Dieses Programm läuft nur unter ProDOS 
Version 1.0.1! 
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Nach BRUN BLOCKTRACER wird bei je- 
dem Diskettenzugriff der jeweilige Block in 
folgender Form angezeigt (Beispiele): 


ROO20 = Read = Lesen des Blocks $0020 
W0100 = Write = Schreiben des Blocks 


650100 

SOOFF = Seek = Suchen des Blocks 
SOOFF 

F0000 = Format = Formatieren des 
Blocks $0000 


Mit Hilfe des Block-Tracers macht man 
einige interessante Entdeckungen. Bei- 
spielsweise kommt der Format-Befehl nie- 
mais vor, selbst dann nicht, wenn man von 
der Format-Option des FILER-Programms 
Gebrauch macht. (FILER und CONVERT 
können übrigens problemlos in Verbin- 
dung mit dem Block-Tracer benutzt wer- 
den, da der Bereich ab $0300 nicht über- 
schrieben wird.) Ferner stellt man fest, daß 
der Seek-Befehl auch bei RAM-Disks be- 
nutzt wird, obgleich er eigentlich für das 
Positionieren des Lesekopfes gedacht ist 
und deshalb bei RAM-Disks sinnleer ist. 
Übrigens wird Seek sehr häufig auf Block 
$0000 angewandt, was bei DISK-II-Lauf- 
werken zu den bekannten scharrenden 
Geräuschen führt. 


Zu Testzwecken formatieren wir eine 
Leerdiskette, starten den Block-Tracer 


BLOCKTRACER 
ORG $300 


“ 

* Block-Tracer von ProDOS für 
* DISK-II-Driver von U.Stiehl 
* August 1984 

* 
PRINT 
HEXOUT 
DISKII 
* 

* ALT: 
* 

* $F800: A5 46 LDA $46 
* a6 AT LDX $47 


EQU S$FDED 
EQU $FDDA 
EQU $F800 





und führen anschließend folgende Disket- 
tenoperationen durch: 


BSAVE XXX, A$1000, L$200 
(Erstspeicherung) 


RO002 R0002 S0000 R0006 W0007 
RO002 W0002 WO006 R0002 R0002 
R0007 S0000 S0000 W0007 R0002 
R0O002 W0002 R0002 R0002 W0002 


BSAVE XXX, A$1000, L$200 
(Zweitspeicherung) 


RO002 R0002 R0007 S0000 S0000 
W0007 R0002 R0002 W0002 R0002 
R0002 W0002 


BSAVE XXX 
(Drittspeicherung ohne Parameter) 


RO002 R0002 R0007 S0000 W0007 
RO002 R0002 W0002 R0002 R0002 
W0002 


BLOAD XXX 
(Ladevorgang) 


R0002 R0002 R0007 


Wie ersichtlich, ist das erneute Speichern 
einer Datei erheblich weniger blockinten- 
siv als der allererste BSAVE. Bei BLOAD/ 
LOAD wird der Seek-Befehl offenbar nie- 
mals benutzt. Dies würde erklären, warum 
sich PRODOS-Disketten manchmal selbst 
nicht lesen können, z.B. wenn zuvor mit 
geschützten DOS-3.3.-Disketten gearbei- 
tet wurde. 


Den Block-Tracer kann man mit -PRO- 
DOS abstellen. Durch -FILER, -CON- 
VERT, -BASIC.SYSTEM usw. wird er nicht 
zerstört, wohl aber, wenn ein anderes Ma- 
schinenprogramm in den Speicherbereich 
ab $0300 geladen wird. 


* NEU: 

* $F800: JMP VEKTOR 

* 

* Block-Tracer-Vektor 

* initialisieren 

* 
LDA $C08B ;READBKL1 
LDA $C08B ;WRITEBKI 
LDA #$4C ;JMP 
SA UT SRTT 
LDA #<VEKTOR 
STA DISKII+l 
LDA #>VEKTOR 
STA DISKII+2 
LDA $cos8l 
LDA $C0o8l 


;RDROM 
;WRBK1 
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RTS 













* 
35 * Sprung vom DISK-II-Driver 
36 * an diese Stelle 


St z 
031C: 8C 8D 03 38 VEKTOR STY YSAVE 
O3lF: 08 39 PHP 
0320: 68 40 PLA 


STA PSAVE 








* 


































0324: A2 00 43 LDX +$00 

0326: B5 40 44 RETTEL LDA $0040,X | 
0328: 9D 7D 03 45 STA RETTE3,X 

032B: E8 46 INX 

032C: EO 10 47 CPX #$10 


BNE RETTEL 











* 
50  # Block-Nr. $HHLL anzeigen 


Sl * 
0330: AD 81 CO 52 LDA $C081 ;RDROM 
0333: AD 81 CO 53 LDA $c081 ;WRBEKIl 
0336: A2 02 54 LDX #$02 ; COMMAND 
0338: BD 7D 03 55 LDA RETTES,X :S/R/W/F 
033B: AA 56 TAX 
0353C: BD BF 03 57 LDA RDWR,X 
033F: 20 ED FD 58 JSR PRINT 
0342: A2 07 59 LDX #$07 ; HIGH 
0344: BD T7D 03 60 LDA RETTE3,X BLOCK 
0347: 20 DA FD 61 JSR HEXOUT 
034A: CA 62 DEX ;LOW 
034B: BD 7D 03 63 LDA RETTE3,X ;BLOCK 
034E: 20 DA FD 64 JSR HEXOUT 
0351: AQ AO 65 LDA #$4A0 ‚SPACE 
0353: 20 ED FD 66 JSR PRINT 
0356: 20 ED FD 67 JSR PRINT 


JSR PRINT 





035C: AD 8B CO 7 LDA $C08B :RDBK1 

035F: AD BB CO 71 LDA $CO08B ;WRBKl 
T2 zE 

0362: A2 00 13 LDX #$00 

0364: BD 7D 03 74 RETTE2 LDA RETTE3,X 

0367: 95 40 75 STA $0040,X 

0369: EB 76 INX 

036A: EO 10 77 CPX #$10 


BNE RETTE2 








LDY YSAVE 









0371: AD 8E 03 81 LDA PSAVE 

0374: 48 82 PHA 

0375: 28 83 PLP 

0376: A5 46 84 LDA $0046 

0378: AG 47 85 LDX 0047 
86 * 


87 * Zurück zum DISK-II-Driver 
* 
























JMP DISKII+4 





* 
91 RETTEB DS $10 

053D: 00 92 YSAVE HEX 00 

038E: 00 93 PSAVE HEX 00 





= | 
95 * 5 = Seek 
96 * R= Read 
97 x W= Write 
98 x F= Format (kommt nicht vor) 
* 
RD ASC "SRAF" 


BLOCKTRACERI 








ORG $300 


* 
* Block-Tracer von ProD0OS für 
* RAM-Disk-Driver von U.Stiehl 
* August 1984 


EQU $FDED 
EQU $FDDA 
EQU $FFOO 


voJounhaun m 





= CLB 
: LDX #$0B 
: LDA $3C 
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NEU: 


SFF00: JMP VEKTOR 
$FFO3: LDA $3C 


Block-Tracer-Vektor 


aka er + 


initialisieren 
0300: AD 8B CO 25 LDA $cCOo8B ;READBKI1 
0303: AD 8B CO 26 LDA $CO08B -WRITEBKI 
0306: A9 AC 27 LDA +$4C :JMP 
0308: 8D 00 FF 28 STA RAMDISK 
030B: A9 1C 29 LDA #<VEKTOR 
030D: BD 01 FF 30 STA RAMDISK+L 
0310: A9 03 31 LDA #>VEKTOR 
0312: 8D 02 FF 32 STA RAMDISK+2 
0315: AD 81 CO 33 LDA $cosı ;RDROM 
0318: AD 81 CO 34 LDA $c081 :WRBKIl 


RTS 







* 
* Sprung vom RAN-Disk-Driver 
* an diese Stelle 
39 a 
031C: BD 8E 03 40 VEKTOR STA ASAVE 
031F: 86 8F 03 41 STX AXSAVE 
STY YSAVE 











#* 









0325: A2 00 44 LDX #300 
0327: BS 40 45 RETTElL LDA $0040,X 
0329: 9D 7E 03 46 STA RETTES,X 
032C: E8 47 INX 

032D: EO 10 48 CPX #$10 


BNE RETTEl 












* 
51  %* Block-Nr. $HHLL anzeigen 

























52 Sr 
0331: AD 81 Co 53 LDA $C081 ;RDROM 
0334: AD 81 CO 54 LDA $C0o8l ;WRBEKl 
0337: AR 02 55 LDX +#$02 ; COMMAND 
0339: BD TE 03 56 LDA RETTE3,X ;S/R/W/F 
0350: AA 57 TAX 
033D: BD 91 03 58 LDA RDWR,X 
0340: 20 ED FD 59 JSR PRINT 
0343: A2 07 60 LDX #$07 ; HIGH 
0345: BD TE 03 61 LDA RETTE3,X ‚BLOCK 
0348: 20 DA FD 62 JSR HEXOUT 
034B: CA 63 DEX ; LOW 
034C: BD 7E 03 64 LDA RETTE3,X BLOCK 
034F: 20 DA FD 65 JSR HEXOUT 
0352: A9 AO 66 LDA #$A0 
‚0554: 20 ED FD 67 JSR PRINT 
0357: 20 ED FD 68 JSR PRINT 


JSR PRINT 





035D: AD 8B CO 7 LDA 
0360: AD 8B CO 72 LDA 


$CO8B 
$C08B 


;‚RDBKl 
:WRBRKl 


LDX %#$00 


0365: BD 7E 03 75 RETTE2 LDA RETTE3,X 
0368: 95 40 T65 STA $0040,X 
036A: E8 et INX 

036B: EO 10 78 CPX #810 


BNE RETTE2 





| LDA 
0372: AB 8F 03 82 LDX 
LDY 


ASAVE 
XS5SAVE 
YSAVE 































0378: AZ OB 85 LDX 
CLD 


+$0B 





Zurück zum RAN-Disk-Driver 





JMP RAMDISK+3 
92 RETTES DS $10 

038E: 00 93  ASAVE HEX 00 

038F: 00 94 XSAVE HEX 00 

HEX 00 








* 
= 5 = Seek 
98 * R= Read 
99 * W = Write 
100 x F = Format (kommt nicht vor) 
101 «* | [1 


NSRWF 
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49999 299999 DECKER 4 
DEEkER 








Text unter folgender Rubrik: 
[| suche Hardware I] suche Software L} Tausch L_] verschiedenes 
L_] biete Hardware [] biete Software [1] Kontakte [1 Chiffre 


AUFTRAG FÜR KLEINANZEIGEN 


Bitte veröffentlichen Sie in der nächsterreichbaren Ausgabe nachstehenden 













HH 
Gelegenheitsanzeigen FEFEREBEEFFERF tt HHHH- 
LT) II I TI TI TREITE TE 
Sie können unter dieser SIT +HHHHHHHr 





Rubrik zu einem besonders 

günstigen Preis 

@ Ihre Hardware und 
Software verkaufen 

@ Ihre Hard- und Software 
suchen 


@ Kontakte knüpfen und 
vieles mehr 


Bitte jeweils 32 Buchstaben pro Zeile-einschließlich Satzzeichen und Wort- 
zwischenräume. Bitte Absender nicht vergessen. | 
Chiffregebühr DM 6,- zuzügl. MwSt. 


III MAGAZIN FÜR APPLE-COMPUTER 


Zu der in »peeker«, Heft ‚Sete______ erschienenen 
| Anzeige [|] Produktbesprechung 


ee Bear Börse 














Musteranzeige privat 


1 Druckzeile a 32 Buch- 
staben nur DM 5,— 
zuzügl. ges. MwSt. 


über 





bitte ich um detaillierte Information. 
Ich wünsche L[] Prospekt, Datenblatt U] Preisliste D schriftliches Angebot D tel. Rückruf 


Beispiel: | 
gebe ich neben- 
stehende Bestellung 
unter Anerkennung 
Ihrer in der Anzeige 
genannten Liefer- und 
1 Zahlungsbedingungen 
| auf. 


Verkaufe neuwertigen Typenrad- 
drucker mit Apple-Interface. 
Preis auf Anfrage. Tel. 007 


nur DM 17,10 inkl. MwSt. 





=D mil: 





Unterschrift (für Jugendliche unter 18 Jahren der Erziehungsberechtigte) 


Musteranzeige gewerblich 





Die einspaltige Millimeter- 
zeile (42 mm breit) kostet 
9,50 zuzügl. ges. MwSt. 
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MAGAZIN FÜR APPLE-COMPUTER 





Schreiben Sie uns, wenn Sie Fragen, Ergänzungen oder Anregungen zu 


Beispiel: Aufsätzen in »peeker« haben: 


Neu im Angebot: Professionelle, 
separate Tastatur für Apple Il 

Plus 16 Funktionstasten und sepa- 
ratem Ziffernblock. 

Fa. Keyboard & Co. 





nur DM 137,94 inkl. MwSt. 


Info Karte 





Vorname, Name 
Beruf 

Straße 

Wohnort 


PLZ 

Bitte veröffentlichen Sie den um- 
stehenden Text von____Zeilen 
a DM in der nächsterreich- 
baren Ausgabe von »peeker« 









Bei Angeboten: Ich bestätige, daß ich alle 
Rechte an den angebotenen Sachen besitze 





Datum Unterschrift 


= peeker-Börse 








Karte bitte vollständig ausfüllen 


Vorname, Name 


= 
3 
> 


Straße 


FLO 






Telefon mit Vorwahl 


| Anschrift der Firma angeben, bei der Sie 
bestellen bzw. von der Sie Informationen 
wünschen 


=» Produkt-Karte 


—eee iii nn ss 
— — a 








Karte bitte vollständig ausfüllen 


Vorname, Name 


Firma 


Strafia 


PLZIOH 


Telefon mit Vorwahl 


Info -Karte 





ANTWORTKARTE 


peeker-Börse 
Anzeigen-Service 


Dr. Alfred Hüthig Verlag 
Postfach 102869 
6900 Heidelberg 1 


POSTKARTE 


Firma 


Straße 


PLZ/Orl 


POSTKARTE 


peeker 
Redaktion 


Postfach 10 2869 
6900 Heidelberg 1 


Produki- 
Karfe 


Wünschen Sie 
weitere Informationen 
zu einem der im Heft 
vorgestellten 
Produkte ? 











Nichts einfacher als 
das. 

Produkt-Karte aus- 
füllen, mit 60-Pfennig 
frankieren und 
absenden. 


Vorher aber nicht 
vergessen: 

kreuzen Sie an, 
welchen Informations: 
wunsch Sie haben. 


Damit erleichtern Sie 
dem Hersteller 

eine gezielte Beant- 
wortung Ihrer Anfrage 


Zum Schluß tragen 
Sie auf der Rück- 
seite die genaue 
Anschrift des 
Inserenten/Hersteller: 
und Ihre vollständige 
Firmenanschrift ein. 





| MAGAZIN FÜR APPLE-COMPUTE 





N FT 7 Na Tai 


N ur co Se un 2 20 « _ 


für Aufsteiger 


Mit ausführlichen 


Ulrich Stiehl Programmbeispielen | 





lc 


Apple ProDOS für Auf- Assemblerprogramme unter Pro- Aus dem Inhalt: 

steiger DOS nicht mehr lauffähig und be- Ein erster Überblick — ProDOS und 

ur dürfen einer intensiven Überarbei- DOS 3.3 - Interne Speicherorgani- 
an 


von Ulrich Stiehl 

1984, 202 S., kart., DM 28,- 
ISBN 3-7785-1027-4 
Hüthig Verlag, Heidelberg 


ProDOS ist das neue „professio- 
nele DOS“ (Professional Disk 
Operating System) für den Apple 
le sowie den mit einer Language 
Card ausgestatteten Apple Il Plus. 
Reine Applesoft-Programmierer, 
die bereits unter DÖS 3.3 pro- 
grammiert haben, werden sich 
schnell an ProDOS gewöhnen, da 
die diesbezüglichen Unterschiede 
zwischen DOS 3.3 und ProDOS 
weniger gravierend sind. 

Sinngemäß liegt das Schwerge- 
wicht in dem ersten Band von 
„ProDOS für Aufsteiger" auf der 
Assembler-Programmierung, da 
Assembler-Programmierer unter 
ProDOS völlig umdenken müssen. 
Insbesondere sind alle früheren 


Peeker 5/85 


tung. Band 1 befaßt sich überwie- 
gend mit den theoretischen 
Grundlagen von ProDOS, der in- 
ternen und externen Speicheror- 
ganisation und enthält grundiegen- 
de Beispielprogramme für Assem- 
bler-Programmierer sowie gene- 
relle Untersuchungen zum BASIC- 
‚SYSTEM. Da ProDOS über erheb- 
lich vielfältigere und leistungsfähi- 
gere, zugleich jedoch erheblich 
kompliziertere Dateistrukturen ver- 
fügt, sind theoretische Kenntnisse 
von ProDOS unabdingbar, wenn 
man die Features von ProDOS voll 
ausschöpfen will. 





sation — Externe Speicherorgani- 
sation — ML| (Machine Language 
Interface) — ProDOS für Applesoft- 
Programmierer 
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FORMAT-Befehl 
für ProDOS 





vonU. Stiehl 


Der FORMAT- oder INIT-Befehl ist im 
ProDOS-Betriebssystem u.a. aus Platz- 
gründen nicht enthalten. Statt dessen 
wird von Firma Apple empfohlen, stets 
eine größere Anzahl bereits initialisier- 
ter Disketten bereitzuhalten, da norma- 
le Anwenderprogramme eine Formatie- 
rung aus dem Programm heraus nicht 
zulassen. Zur Formatierung muß näm- 
lich eigens der FILER geladen werden, 
der jedes residente Programm ein- 
schließlich des BASIC.SYSTEMs zer- 
stören würde. Mit der nachstehend be- 
schriebenen Utility FORMAT.LC ist es 
nunmehr möglich, nicht nur aus einem 
Anwenderprogramm heraus, sondern 
auch über die Tastatur den FORMAT- 
Befehl aufzurufen. 


Mittlerweile wurden von mir bereits zwei 
Formatierungsroutinen für ProDOS ge- 
schrieben: 


PRODOS.INIT, das in dem Buch „Pro- 
DOS für Aufsteiger“ enthalten ist, basiert 
noch auf der DOS-RWTS-Routine (RWTS 
— Read Write Track Sector) und ist völlig In 
sich abgeschlossen, d.h. benutzt keinerlei 
programmexterne Routinen, so daß es sO- 
wohl nach dem Booten von ProDOS wie 
auch nach dem Booten von DOS 3.3 ein- 
gesetzt werden kann. Es empfiehlt sich 
stets dann, wenn Fremdlaufwerke, etwa 
80-Spur-Drives, erstmals für ProDOS 
konfiguriert werden sollen, denn bekannt- 
lich gibt es bislang keine bootfähigen Pro- 
DOS-Systemdisketten für Fremdlaufwer- 
ke. Gegebenenfalls könnte PRODOS.INIT 
auch in Anwenderprogramme eingebun- 
den werden, doch ist es hierfür nicht kon- 
zipiert worden, zumal es den RAM-Be- 
reich von $8000 bis $90FF einnimmt. 


FORMAT.LC basiert auf dem ProDOS- 
System selbst und setzt deshalb die Exi- 
stenz des in der Language Card Bank I 
befindlichen Teilprogramms PRODOS 
voraus. FORMAT.LC liegt selbst in der 
Language Card, und zwar in Bank 2 ab 
$D300 und nimmt damit keinen unnötigen 
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Speicherraum in den unteren 48K weg, SO 
daß es bestens in Anwenderprogramme 
eingebunden werden kann. Wie mit PRO- 
DOS.INIT können auch mit FORMAT.LC 
Laufwerke unterschiedlichen Typs (35-, 
40- und 80-Spur-Laufwerke für 5,25-Zoll- 
Disketten sowie beispielsweise 80-Track- 
Drives für 3,5-Zoll-Disketten formatiert 
werden, wenn die üblichen Controller- 
Konventionen bezüglich der Schrittmotor- 
steuerung usw. eingehalten werden. Als 
Faustregel gilt: Wenn die unveränderte al- 
te DOS-RWTS (von der Spurenanzahl ab- 
gesehen) auf ein Fremdlaufwerk ange- 
wendet werden kann, dann sind auch un- 
sere Formatierungsprogramme lauffähig. 


Nachfolgend sind das Maschinenpro- 
gramm FORMAT.LC sowie das überge- 
ordnete Applesoft-Programm FOR- 
MAT.LC.START gelistet. Wegen des un- 
gewöhnlichen Umfangs des Maschinen- 
programms kann hier nur der Hex-Dump 
abgedruckt werden. 


1. Anwendung von FORMAT.LC 


Wenn man mit 

RUN FORMAT.LC.START 

das Applesoft-Programm startet, erscheint 
ein kurzes Menü, das nach 

— Slot (1-7) 

— Drive (1-2) 

— Spuren (35-80) 

fragt. Diese Parameter werden in das Ma- 
schinenprogramm gepokt, das dann auf- 
gerufen wird. Es meldet sich mit 

INIT STIEHL, D1 J/N oder 

INIT STIEHL, D2 J/N 

Mit „N“ oder „n" könnte man jetzt noch 
das Formatierungsprogramm verlassen. 
Anderfalls wird es nach „J“ oder „j” ohne 
weitere Warnung gestartet. Man muß also 
bereits zuvor eine Leerdiskette in das ent- 
sprechende Laufwerk gelegt haben. 
„STIEHL“ steht für den Volume-Namen, 
den man später mit 

RENAME /STIEHL,/MAYER 0.4. 

in den eigenen Namen abändern kann. 
Wenn während der Formatierung keine 


FORMAT.LC 


Assenbler-Hex-Dump 


BSAVE FORMAT.LC, A$80BB, L$OCAO 
Starten mit BRUN FORMAT.LC 
Programm verschiebt sich auto- 
matisch in die LC Bank 2 
$D100-$DD5A 


$80B8: 
$80C0: 
$80C8: 
$580D0: 
$80D8: 
S80E0: 
$80E8: 
G80FO: 
SBOF8: 
$8100: 
$8108: 
$8110: 
FE118: 
$8120: 
$8128: 
$8130: 
98138: 
$8140: 
88148: 
58150: 
88158: 
$8160: 
8168: 
88170: 
68178: 
$8180: 
$8188: 
$8190: 
58198: 
$81A0: 
$SB1AB: 
$81B0: 
$81B8: 
SBLCO: 
H81C8: 
$81D0: 
$81D8: 
$81EO: 
$81E8: 
$B1FO: 
$81F8: 
$8200: 
$8208: 
$8210: 
$8218: 
$8220: 
GERR8: 
$8230: 
58238: 
$8240: 
58248: 
$8250: 
$8258: 
$8260: 
$8268: 
$8270: 
$8278: 
68280: 
$8288: 
$8290: 
58298: 
68240: 
E28: 
$82B0: 
$82B8: 
88200: 
$82C8: 
$82D0: 
$82D8: 
S82E0: 
$82E8: 
$82F0: 
G82F8: 
$8300: 
58308: 
58310: 
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Störungen auftraten, kehrt FORMAT.LC 
zum Applesoft-Programm ohne Meldung 
zurück. Im Falle eines Fehlers wird die 
Routine sofort abgebrochen und ein „E“ 
für Error angezeigt. Ferner wird die Fehler- 
Nummer in der Speicherstelle 767 abge- 
legt, die durch das Applesoft-Programm 
abgerufen werden kann. Die häufigste 
Fehler-Nummer ist 39 = I/O-Error, d.h. 
keine Diskette im Laufwerk, nicht-belegter 
Slot und/oder Drive usw. 


Das Applesoft-Programm FORMAT.LC- 
‚START ist entbehrlich, wenn keine Para- 
meter geändert werden müssen. FOR- 
MAT.LC ist eingestellt auf 

Slot 6 

Drive | 

Spuren 35 

Diese Ersatzwerte lassen sich wie folgt 
ändern (Beispiel): 

BLOAD FORMAT.LC 

CALL- 151 

81093: 05-(9l01.9) 

8104: 02 (Drive 2) 

8105: 50 (80 Spuren) 

Otrl-C 

BSAVE FORMAT.LC 

Wenn man FORMAT.LC ohne das Apple- 
soft-Programm gestartet hat, so kann man 
es jederzeit mit 

CALL 48960 

aufrufen, und zwar sowohl über die Tasta- 
tur wie auch aus einem Programm heraus. 


2. Technisches zu FORMAT.LC 


FORMAT.LC wird zunächst in den Spei- 
cherbereich $80BB-$8D5A geladen, da 
unter ProDOS Programme nicht direkt in 
die Language Card Bank 2 gelegt werden 
können. Ein kurzes Move-Programm ver- 
schiebt erstens das eigentliche FOR- 
MAT.LC ab $8100 in die Bank 2 ab $D100- 
$DD5A und installiert zweitens einen 
Sprungbefehl in der ProDOS Global Page 
ab $BF40 (= dezimal 48960). Hier steht 
normalerweise der Copyrightvermerk 
„COPR. APPLE,1983”, der zugleich die 
einzige noch freie Stelle in der Global Pa- 
ge darstellt. FORMAT.LC kann durch 
CALL 48960 oder durch JSR $BF40 auf- 
gerufen werden. Es ist damit völlig benut- 
zertransparent und funktioniert auch dann, 
wenn sich das BASIC.SYSTEM nicht im 
Speicher befindet. 


FORMAT.LC überschreibt den Bereich 
des sog. REBOOT-Programms in der 
Bank 2, das in „ProDOS für Aufsteiger“ 
erstmals erwähnt wurde und nach der In- 
stallierung von FORMAT.LC nicht mehr 
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per MLI (Machine Language Interface) auf- 
gerufen werden darf. Ferner ändert FOR- 
MAT.LC die folgende Speicherstelle: 
$F809: CA DO 2A alt 

$F809: 18 90 04 neu 

Damit wird die Disk-Driver-Routine ge- 
patcht, welche normalerweise die zulässi- 
ge Block-Gesamtzahl von 280 überprüft. 
Dieser Patch bleibt auch nach der Forma- 
tierung bestehen. 


FORMAT.LC rettet zunächst den benötig- 
ten Teil der Zero-Page $0030-$00FF in 
den Eingabepuffer $0230-$02FF, initiali- 
siert dann die Diskette in der gewünschten 
Spurenanzahl und legt schließlich die 
Blocks 0-6 an (Urlader, Volume-Directory 
und Volume Bit Map). Dann wird die Zero- 
Page wieder hergestellt, eine mögliche 
Fehler--Nummer nach $02FF übertragen 
($02FF: 00 bedeutet keinen Fehler) und 
schließlich das Programm über eine kurze 
Routine ab $0230 verlassen, welche die 
Language Card wieder abstellt. Man sollte 
also niemals FORMAT.LC durch Ctrl-Re- 
set gewaltsam verlassen, da sonst die Ze- 
ro-Page nicht mehr die alten Werte enthält. 
Im Zweifelsfall öffne man die Laufwerk- 
Klappe, worauf die Formatierungsroutine 
sofort abgebrochen wird. 


FORMAT.LC enthält zwei interne Puffer, 
nämlich erstens einen 2-Block-Puffer mit 
dem Urlader für Block O und 1, der unver- 
ändert der ProDOS-Systemdiskette als 
Kleinzitat entnommen ist, sowie zweitens 
einen 1-Block-Puffer zur Anlage der Dis- 
Kettenblocks 2-6. Ferner wird der Einga- 
bepuffer ab $0230 — wie zuvor erwähnt — 
benutzt. 


Aufgrund eines Fehlers im BASIC.SY- 
STEM empfiehlt es sich, die Input-Output- 
Vektoren im FORMAT.LC.START-Pro- 
gramm vorübergehend vom BASIC.SY- 
STEM abzuhängen, da Applesoft sonst in 
den Trace-Modus gelangt, was mit der 
Anzeige des Mini-Menüs „INIT STIEHL, 
D1“ und der Belegung der Zero-Page zu- 
sammenhängt. 


FORMAT.LC benutzt direkt den Disk-Dri- 
ver ab $F800 und nicht das MLI im enge- 
ren Sinne. Letzteres würde nämlich gar 
nicht zulassen, daß ein sich in der Bank 2 
befindlicher Datenpuffer auf die Diskette 
geschrieben wird, von den Bank-Swit- 
ching-Konflikten einmal ganz abgesehen. 
Wie man den Disk-Driver direkt benutzt, 
wird anhand des nachstehenden Beispiel- 
programms DISKDRIVER.DEMO gezeigt. 
us 


FORMAT.LC 


$8318: 
58320: 
58328: 
$8330: 
98338: 
58340: 
68348: 
$8350: 
$8358: 
$8360: 
68368: 
$8370: 
8378: 
58380: 
58388: 
$8390: 
68398: 
SEZAO: 
GBZAB: 
$83B0: 
$83B8: 
583C0: 
98308: 
$83D0: 
$83D8: 
$83E0: 
$83E8: 
$83F0: 
383F8: 
68400: 
58408: 
58410: 
H8418: 
88420: 
58428: 
58430: 
58438: 
$8440: 
58448: 
58450: 
98458: 
$8460: 
58468: 
58470: 
$8A78: 
58480: 
68488: 
88490: 
58498: 
S84A0: 
HAAS: 
$84B0: 
584B8: 
58400: 
88408: 
$84D0: 
$84D8: 
$84AEO: 
$84ES: 
$84F0: 
H84AF8: 
$8500: 
$8508: 
58510: 
$8518: 
$8520: 
$8528: 
$8530: 
98538: 
68540: 
58548: 
$8550: 
68558: 
$8560: 
$8568: 
$8570: 
68578: 
$8580: 
8588: 
$8590: 
98598: 
H85A0: 
S85A8: 
$85B0: 
$85B8: 
$85C0: 
$85C8: 


BD 
23 
80 
D5 
FF 
68 
D3 
D3 
20 
DO 
96 
DO 
A9 
A9 
D3 
20 
A9 
BD 
8D 
8D 
er 
68 
8D 
FO 
20 
A5 
16 
D3 
DO 
09 
2D 
EB 
BD 
SD 
EA 
3D 
00 
D9 
DO 
1E 
2& 
1C 
AO 
DA 
D3 
D5 
c9 
AD 
D5 
05 
48 
23 
D8 
IF 
D5 
D5 
B3 
26 
CE 
02 
25 
BO 
CE 
D6 
00 
1B 
00 
00 
AO 
Al 
70 
49 
AB 
00 
5B 
63 
EB 
BD 
09 
09 
E93 
4A 
84 
61 
E6 
09 
ol 


20 
05 
co 
BD 
9D 
BA 
88 
A9 
A4 
03 
SD 
FO 
396 
96 
Ag 
A4 
FF 
8c 
co 
co 
9D 
20 
co 
Ag 
2D 
D3 
DA 
45 
SD 
AA 
D4 
20 
8C 
8D 
BA 
8D 
00 
DO 
FO 
18 
26 
1C 
80 
A4 
90 
20 
10 
Be 
88 
A8 
68 
D5 
FO 
D5 
20 
20 
26 
D5 
25 
38 
D5 
06 
25 
20 
CA 
03 
00 
00 
Bl 
86 
AA 
AO 
DO 
08 
48 
Bl 
DO 
24 
9D 
85 
BO 
84 
42 
85 
61 
06 
0C 


öA DA 18 


ZA 
AB 
8D 
ör 
40 
DO 
AA 
D3 
20 
8D 
24 
9D 
EA 
DE 
D3 
20 
co 
DD 
BD 
8F 
1B 
DD 
D5 
DA 
20 
45 
DI 
8D 
20 
49 
2D 
Co 
co 
09 
co 
A2 
02 
60 
1C 
Ze 
16 
A9 
DA 
05 
2E 


D5 
10 
20 
EA 
20 
13 
BO 
6A 
07 
D5 
06 
D5 
50 
AB 
AS 
D5 
0E 
DO 
10 
00 
00 
ol 
43 
Ar 
FR 
5A 
ES 
60 
48 
F6 
09 
TE 
49 
2F 
ac 
08 
AB 
ES 
90 
DO 


OD 
Sr 
co 
c0 
04 
F& 
20 
AO 
0E 
Co 
00 
8D 
08 
20 
A9 
AA 
60 
8C 
8E 
co 
D4 
8C 
20 
A9 
1C 
D2 
45 
co 
2C 
AA 
D4 
60 
DD 
AA 
DD 
71 
E& 
Ol 
1C 
IF 
AD 
00 
AB 
ac 
D3 
E5 
8D 
FA 
DE 
EA 
SA 
(6 
2ER 
D2 
D2 
30 
D2 
DO 
AD 
23 
D8 
DO 
D5 
Fö 
60 
00 
00 
38 
c9 
Ar 
84 
BO 
3D 
85 
99 
A2 
39 
0A 
AO 
85 
84 
84 
20 
eat 
EF 
6&D 


37 
D5 
BD 
DD 
48 
A9 
A4 
56 
D5 
DD 
BA 
co 
DO 
A4 
EB 
D3 
EA 
co 
co 
DD 
20 
co 
2D 
96 
D4 
260 
D2 
BD 
DA 
20 
18 
48 
8C 
EA 
Sc 
CA 
DA 
30 
16 
1E 
N 
35 
23 
0E 
E6& 
AO 
25 
Fte) 
D5 
88 
D2 
D4 
38 
BO 
BO 
OB 
10 
DS 
22 
D5 
9 
ED 
20 
ac 
80 
00 
00 
BO 
03 
AA 
48 
0E 
Ad 
40 
94 
06 
FR 
CA 
86 
48 
AE 
46 
12 
ES 
AD 
A9 


AD 
D5 
60 
8E 
8C 
68 
D5 
D3 
EA 
EA 
8C 
20 
DD 
Er 
D3 
20 
BD 
48 
60 
30 
sc 
1B 
EA 
D4 
20 
A5 
IC 
48 
sc 
49 
2D 
BD 
AA 
co 
EA 
co 
DO 
38 
28 
16 
1D 
D5 
D2 
D5 
D5 
D2 
ürF 
D5 
DA 
20 
DO 
BO 
A5 
60 
1A 
12 
A939 
EO 
C& 
D5 
20 
OF 
38 
OE 
68 
00 
00 
00 
03 
08 
09 
28 
a9 
49 
85 
08 
BC 
09 
10 
AO 


84 
Ag 
09 
46 
00 
04 


PROdos 94 
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er 





58 


$8888: 
$8890: 
58898: 
$8840: 
GBBAB: 
$88B0: 
58888: 
H88C0: 
58808: 
$88D0: 
$88D8: 
688E0: 
$88E8: 
588F0: 
H88F8: 
68900: 
$8908: 
58910: 
68918: 
$8920: 
58928: 


66 
86 
85 
06 
20 
DD 
AO 
Ag 
E6 
EO 
DO 
Al 
6D 
6D 
29 
20 
AO 
38 
E7 
CA 
co 


AD 
20 
AD 
85 
BE 
21 
13 
DO 
86 
BD 
04 
ac 
08 
09 
Ol 
19 
A0 
49 
A8 
83 
ac 


(Blockpuffer 
diesem Bereich) 


G8B38: 
$8B40: 
$8B48: 
$8B50: 
$8B58: 
$8B60: 
S3B68: 
68B70: 
$8B78: 
$8B80: 
S8B88: 
$8B90: 
$8B98: 
$8BA0: 
$8BA8: 
$8BB0: 
$8BB8: 
$8BCo: 
$8BC8: 
$8BDO: 
$8BD8: 
$8BEO: 
$8BE8S: 
$8BFO: 
HEBF8: 
$8C00: 
$8C08: 
$8C10: 
$8C18: 
$8C20: 
58028: 
$8C30: 
68038: 
$8C40: 
$8048: 
$8C50: 
8058: 
$8C60: 
$8C68: 
$8070: 
$3078: 
$8080: 
$8C88: 
88090: 
58098: 
$SCA0: 
S8CABS: 
$8CBO: 
SBCBB8: 
$8CCc0: 
$8cc8: 
$8CDO: 
$8CD8: 
$8CEO: 
$SCEB: 
$8CF0: 
SECF8: 
$8D00: 
$8D08: 
$8D10: 
$8D18: 
68020: 
$8D28: 


00 
3A 
02 
B9 
F7 
DB 
20 
co 
co 
36 
03 
8l 
8D 
c9 
65 
GA 
18 
r8 
DB 
F4 
0A 
09 
08 
Dl 
DB 
BD 
BD 
07 
02 
sl 
02 
Ag 
9D 
F7 
DC 
90 
Dr 
20 
20 
A2 
9D 
FO 
516 
AD 
OE 
F7 
3D 
A9 
8D 
D9 
Ag 
03 
02 
D9 
Ag 
03 
03 
D9I 
A9 
03 
04 
209 
00 


00 
DB 
E8 
8r 
AD 
A2 
FO 
AD 
c9 
09 
ac 
co 
83 
CE 
c8 
AF 
8D 
Ag 
8D 
Dl 
OA 
80 
78 
BO 
A9 
00 
1C 
DO 
AC 
co 
85 
00 
3A 
60 
A9 
05 
20 
00 
35 
00 
3E 
09 
00 
05 
89 
A9 
SD 
06 
63 
AO 
V2 
AC 
8D 
AO 
05 
ac 
8D 
AO 
04 
ac 
8D 
23 
Fö 


85 
BE 
69 
EO 
Al 
AO 
ac 
85 
A6 
00 
AS 
8A 
lE 
lE 
85 
FA 
09 
28 
BD 
66 
BF 


DO 
00 


00 
El 
06 
AD 
AD 
SC 
EO 
60 
Al 
4A 
38 
4 
00 


freilassen in 


00 
A2 
DO 
DB 
04 
00 
00 
00 
CA 
CE 
Tl 
8D 
co 
09 
cc 
CE 
09 
04 
6F 
AD 
0A 
8D 
20 
03 
05 
02 
DC 
Fo 
30 
60 
42 
85 
D9 
AO 
00 
ac 
23 
F8 
DC 
18 
D9 
ES 
00 
D1 
DC 
63 
D9 
8D 
D9 
3A 
85 
Fö 
3A 
3A 
85 
F6 
3A 
3A 
85 
F& 
3A 
DC 
90 


01 
30 
F& 
95 
DI 
BD 
E8 
co 
FO 
FO 
DB 
8l 
8D 
D4 
AC 
AO 
F8 
8D 
Dl 
03 
0A 
16 
3A 
ac 
20 
95 
9D 
AD 
02 
84 
AD 


EO 
BS 
42 
00 
09 
9F 
DO 
10 
3A 
07 
ac 


00 
9D 
AO 
E8 
8D 
FO 
2C 
et 
EA 
EE 


85 
85 


El 
1E 
A0 
ED 
86 
85 
EO 


AO 
AO 
00 


32 
E7 
65 


AU 
00 


FORMAT.LC.START 


Applesoft-Listing 


10 


PRINT CHR$ (4) "BRUN FORMAT,.LC": 
REM FORMAT.LC in Language Card 
schieben 

PRINT CHR$ (21): POKE 242,0: 

PR#+ 0: IN# 0: REM BASIC.SYSTEM 
abhängen 

TEXT : HOME : VTAB 5: INVERSE : 
PRINT "PRODOS FORMAT.LC": 

NORMAL : PRINT 

X = PEEK (49281):X = PEEK (49281): 
REM Bank 2 schreibfähig machen 
INFUT "sleat (ler?) 2:5 

POKE 53507,8 

INPUT "Drive (1-2) : '";D 

POKE 53508,D 

INPUT "Spuren (35-80): ";T 

FOKE 53509,T 

HOME : VTAB 10: CALL 48960: 

REM Formatieren 

IF PEEK (767) < > O0 THEN PRINT: 
PRINT "Fehler-Nr. "; PEEK (767): 
GOTO 90 

HOME : VTAB 11: PRINT "Erneut J/N "; 
GET X$: IF X$ = "N" OR X$ = "'n" 
THEN 90 

IF X = "Je OR X = "Jj" THEN 66 
GOTO 75 

CALL 39447: REM BASIC.SYSTEM 
wieder anhängen 


Warnung 
FORMAT.LC läuft nur unter 
ProDOS 1.01! 





DB-MEISTER 


Adreß- und Schemabriefprogramm 


Der DB-Meister ist ein in Assembler ge- 
schriebenes, ungewöhnlich schnelles, un- 
kompliziertes und zugleich „narrensicheres” 
Adreß-, Datei- und Schemabriefprogramm. 


Te 


chnische Daten 

Recordlänge bis zu 230 Zeichen 

560 bis 1000 Records pro Datendiskette 
Maximal 25 Felder pro Record 

Suche nach 3 Indexfeldern 

Ausdruck der Dateien als Etiketten, Listen 
und Schemabriefe (mit Felder- und Tasta- 
tureinschüben an beliebigen Stellen des 
Formbrieies) 

normal kopierbare Programmdiskette, un- 
terteilt in Hauptprogramme und diverse 
Hilfsprogramme 

einsatzfähig auf Apple Ile, Ilc oder II Plus 
mit 2 Drives (1 Drive ebenfalls möglich) 


Gesamtpreis 290,- (2 Disketten + ge- 
drucktes Manual) 


U. 


Stiehl 


c/o Dr. A. Hüthig Verlag 
Postfach 10 28 69 - 6900 Heidelberg 
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DISKDRIVER DEMO ORG $300 LDX #0 
STA $D100,X% 
DISKDRIVER.DEMO INX 
x BHE ZWEI 
Beispiel für direkten Zugriff * Command: Ol Read, 02 Write 
auf ProD0OS-Disk-Driver ab $F800 * 
LDA #2 
Vorteil: STA 842 
Datenpuffer darf sich 
in den RAM-Bereichen 
$0200-$BEFF sowie in 
$D000-$DFFF von Bank 2 
befinden, 


;Write 
; Command 


OO 090 bh DVD Pr 


Herr 
N NHrO 


Unit-Nummer: hier für S6, Dl 


LDA #+%01100000 ;D1,S6 
STA $43 ;Unitno 


re FH 
DO RB 


Vor JSR $F800 müssen die Para- Puffer-Adresse: hier $DO00 
meter in die Zero-Page 
$0042-$0047 gepokt werden LDA #300 


STAA Sad 


> 
co 


:$D000 
Low 


DH 
Oo (0 


60042: 
50043: 
$0044: 
60045: 
60046: 
60047: 


Command: l=read, 2=write 

Unitnumber: Slot/Drive LDA #500 
Low Byte Puffer STA 545 

High Byte Puffer 

Low Byte Blocknummer 

High Byte Blocknummer 


DD m 
DH 


‘High 


Da 
N 


hier $0117 = 279 


DJ 
> 


Block-Nummer: 


v2 
on 


1 LDA #817 
Nach JSR $F800 befindet sich STA $46 
eine mögliche Fehlernummer 
im Akkumulator, falls das EDA #501 
Carry-Flag gesetzt ist. STA 847 


DD 
O 


:50117 
: Low 


N DD m 
OO 00 —] 


‚High 


ul 
3 
FEKRKKEFKFF FE KH FR IF FF FF FH FE HE FF FH FF IF IF FE FH FE ca 


N 
DH 
I 2 


Disk-Driver aufrufan: $FBO0 


Oo 
ol 


* 
* Bank 2 der LC lese- und 
schreibfähig machen 
* # Languags Card abstellen 
LDA $C083 ;RD Bank2 . 
LDA $C083 ;WR Bank2 LDX $0081 
LOX 50081 


JSR $F800 


Ca ch 
aan 


!RD ROM 
:WR Bank 2 
Speicherbereich $D000-$D1FF 
mit Hex-Muster füllen = 1 Block BCE ENDE ‚okay 
LDA #1 :l 
LDX #0 

A 5D000,% JSR 

ENDE ATS 


Fehler als Hex-Zahl anzeigen 


$FDDA :FREYTE 


EINS 


#2 


APPLE = DISKETTEN LAUFWERKE - 
Original Disk II m. Controller + 00833 +Hdbuch DM 100% Apple-kompatibel 
Original Disk II (2 Laufwerk} DM bei Verwendung des 
Duo-Disk Station Slimline, 2 x 143KB Chinon DM y Apple-Betrlebssyslems. 
Siemens Disk-Laufw., 143KB, m Kabel + Gehäuse DM ——- 
Abor-Disk-Laufw., Slimline, 143KB, m Kab. + Geh DM 

Chinon Slimline, 143KB, Superleise, m. Kab +Geh DM 

Teac 55F, 1 MB unf, Kapazität, Shugarlbus DM 

Teac 55F, kpl. ın Gehäuse, 40/80 Track, 1MByte 

anschlußferlig. mit Umschaltung 40/80 + Kabel 0M 
Zweitlaufwerk fur Apple II C, 143 KB, mit Kabel DM 4d99,— 
APPLE -—- INTERFACES + MAINBOARDS - APPLE 
Disk Controller f, 2 Original 0. kompal. Drives "DM 89,— 
Super-Controller f. 2x Teac 55F, mit Software "DM 239, — 
80 Zeich-Karte mil 64K RAM + Softsw 1 Ile DM 395,— 
80 Zeıch-Karte Il, m. Soflswilch, 2 Zeichensätze "DM 159,— 
16K RAM Erweilerung für Il und kompatible ‘DM 98,— 
Z 80A Interface Karle für CPM 22 "DM 89— 
Z B0B Interface Karte für CPM 30. m. 64K RAM DM 595,— 


Reparaturservice IBM °'" KÖMPATIBEL "*" IBM "" KOMPATIBEL ' 
Alle Teile unterliegen einer sorgfältigen Endkontrolle und wir 
ubernehmen daher volle Garantie fur die Funktionsfähigkeit, 
sowohl für die gelieferten Leerplatinen, als auch für die fertig 
bestückien Boards und Interface Karlen, die fast ohne Ausnahme 
mit gesockelien IC's gelielert werden 
IBM -- Kompatible Interface Karten und Mainboards -- IBM 


6 Mon. Garantie 


Disk Controller Karle für 2 Disk-Drives "KL-2020 DM 310,— 
Dısk Controller Karle fur 4 Disk-Drives "KL-2021 DM 399, — 
Color Video Board, Farb- und Video Ausg. "KL-2050 DM 6994,— 
Monochrome Yideo Boards "KL-2060 DM 398, 
RS 232 Drucker Inlerface Karle KL-2074 DM 199,— 
Centronies Paralell Interface Karte KL-2072 DM 198,— 
Multifunktion Karte, RAM-Bereich, AS232, 
Paralell, Clock, mit OÖ K bestuckt 

gto. wıe vor, jedoch mit 128K bestuckt 
gto. wie vor, jadoch mit 256K bestückt 
512K RAM Karte, mil Ö K bestuckt KL-2095 DM 349,— 
dio. wie vor, mit 128K besluckt KL-2096 DM 689,— 


"KL-2040 DM 555,— 
‘'KL-2041 DM 899,— 
"KL-2042 DM 1245,— 


APPLE -TASTATUAEN+LEERGEHÄUSE+NETZTEILE- APPLE 
Standard Einbau-Tastatur, ASCI, freibel.9 Tasten 

Doppelbeig aller Tasten, Groß+Kleinschr Nr N6 DM 139,— 
Tastatur wie vor, Jedoch mil 15er Block Nr.N67 DM 179,— 


APPLE -- ORIGINAL + KOMPATIBLE - COMPUTER -- APPLE 
APPLE Ile, 64KRAM, Ascii-Tastat, + UHF-Modul DM 2198,— 
APPLE Ile, Eınstiegspaket = Computer 65KRAM, 
+ Philips-Monitor 18 Mhz grün + Siemens F12? - 


Printer-Grafik interface, Epson kompatible "DM 94,— 
Centronie-Paralell Text-Interface Karte "DM 94,— 
Printer-Gralik Interface, NEC/ITOH kompalibel "DM 169,— 
Anschfuß Kabel f_ Paralell + Gralik Inlerface DM 34,— 
Butler Grafik-Inierlace, benulzbar für Drucker 
Epson/Nec/ltoh/ükıdala u. andere m 32K Buffer DM 348,— 
Buffer Interlace wie vor aber mit 64K Bufter “DM 595,— 
Anschluß Kabel 1. Buffer Interface Karte DM 39,— 
2320 Serielle Interface Karte "DM 109,— 
Super Serielle Interface Karte, Fullduplex "DM 288,— 
Sprach (Speech) Karte f, Sprachwiedergabe "DM 78,— 
6522 Paralell Interface Karte "DM 149,— 
Clock Karte (Datum/Uhrzeit) Ein/Ausgabe “DM 129,— 
Eprom Writer Karte (2716 - 2764] "DM 129,— 
IEEE-488 Interface Karle "DM 398,— 
Logo-Karte mil Diskette und Handbuch DM 498,— 
Musik Karle m. Diskette und Handbuch "DM 119,— 
PAL Color Interface Karte {UHF + Video) "DM 129, — 
RGB Inierface Karte {f. Apple ll + Il+) DM 169 — 
Wild Karle (kopierl über RAM-Bereich) "DM 119,— 
128K RAM Erweilerungs Karle m Patchsoltware "DM 448,— 
256K RAM Erweiterungs Karle m. Palchsofltware "DM 5698,— 
6809 Prozessor Exeli-9 Inlerlacekarle + DM 398,— 
IC-Testar Interface Karte {RAMS/TTL 54774) DM 448,— 
Hauptplatine 48K, o. Firmware Eproms, 8 Slois DM 548,— 
Hauptplatine 64K, wie vor DM &4d.— 
APPLE = LEERPLATINEN - APPLE 
Leerplatinen der obigen Interface Karlen sind alle ın vergoldet, 

m. Bestuck-Aufdruck + Besi -Plan lieferbar 

Leerplatinen mit der Kennzeichnung "DM  33,— 
Leerplatinen mit der Kennzeichnung "DM 24,50 
Leerplatinen mit der Kennzeichnung +DM 33— 
Expertmentier Platine, für Apple SIol EX300 DM 29,90 


| Experimentier Plaline, für Apple Siot EX500 DM 19,98 
| Leerptatine Molherboard, AK, mil Best--Aufdruck DM 65,— 


Laerplatine Motherboard, 64K, mil 6562 + Z80 DM 99,— 
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Tastatur Nr N67, mitsep Gehäuse, kpl. m Kabel DM 249,— 
Seperate Tastalur IBM-Look, anschlußfertig mil 

Kabel, Dopp belegi Tasten, freiprog Funkt Tasten DM 299,— 
Seperale Tasialur, Eprom progr.-bar, Cursorblock 

Taslenleld mit 24 Funktionen, Deulsch o ASCII DM 398,.— 
Leergehause Standard, passendf, TaslaturNr.N?G5 2 0OM 98— 
dio wie vor, jedoch passend für 15er Tast. N67 DM 119,— 
Leergehäuse wie Mewa 9000, fur Einbau von zwei 
Slimline-Laufwerken + Tastaturanschluß, Praslic DM 159,— 
Leergehäuse wie vor, jedoch ın Metall-Ausfuhrung DM 198,— 
Leergehäuse IBM-Laok, [.2 Laulw Siandard 5” DM 198,— 
Leergehäuse für 1 Slimline Laufwerk, Metall DM 19,90 
Leergehäuse I Duo-Disk = 2x Slimline-Laufwerke DM 98,— 
Leergehäuse I Duo-Disk = ?x Slandard-Laufw DM 109 — 
Leergehäuse 1 Duo-Disk = 2x Slimline + Netzteil DM 179,— 
Schallnetzteile für APPLE u. kompatible Rechner 

+5V/3,5A -5W/0,5A + 2W/ZA -12V/0,5A N?3 DM 99,80 
+5W/5 A -5V/0,5A +12V/2.5A -12Y/0.5a N74A DM 119,80 
+5V/7,5A -5W/O,5A +t2W/2A -12W/05A N?5 DM 149,50 
rt. DISKETTEN + DISKETTEN-BOXEN — tt 
Prolı Disk Box, m Schloß, Klars.-Deckel, 100Dısks DM 49,— 
Disk Box mit Klars.-Deckel, ca. 70 Disketlen &'' DM 28,— 
Harlbox für 10 Disketten, mit Klappdeckel DM 6,90 
Diskeiten, mit Verstärkungsring, 3 Jahre Garantie 

ABX 100 = SS/5D 10 Steck a. 3,98 50 Stck. a. 3,88 500 Stck a. 3,59 
ABX 200 = 58/DS 10 Stck a 4.08 50 Stck a. 3,98 500 Sick a. 3,69 
ABX 400 = DS/DD 16 Stck a 4,98 50 Sick a. 4,88 500 Sick a. 4.59 


Laufwerk 143K m. Gonfroller + Lerngisketts 
APPLE II C, 128 KHAM. ASCII Tastalur 

APPLE II C, wie vor, jedoch deuische Tastatur 
MACINTOSH Sysiern komplett m. Mouse + Tastatur 
+ Macwrite/Macpaint, Systemguide-Diskellte 
MEWA-48K. Apple kompal.. NelzI 5Amp, Tastatur 
mit Dopp-Betegung + 10 frei Prog Tasten, mit 
UHF-Mod., ohne Firmware Eproms. 

MEWA-64K, wie var jedoch mit 15er Block 

MEWA 9000er Serie, mit seper Taslat, DIN o ASCII 
m. dopp belegi Funkt-Tasien. Cursorbl. + I5er 
Btock Nelzl 5 Amp. Gehäuse fur 2x Stimline- 
Laufwerke UHF-Modulator, 0. Firmw,-Proms 
(12KROM}, 48K RAM 

MEWA 3000-64-C. wie vor jedoch 64K HAM 
MEWA 9000-64-C Einstiegspaket, wie vor, jedoch 
mil 1 Disk Drive eingeb. + Disk-Contr + Monılor 
grün 

IBM-Look Gehäuse für MEWA 9000 Serie Aufpreis 


DM 3098,— 
DM 2793,— 
DM 2998, — 


DM 5995, — 
DM 888,— 
DM 948,— 
DM 1098,— 


DM 118,— 


DM 2099, — 
DM 68, 


mt. HMATRIX- UND TYPENRAD - DAUCKER — '47*47°* 


GP-BO Matrix Drucker, Epson kompat, vollgrafikt 
CP-80 X mil eingeb Interface für YC 64 1 Sim 8 
SPEEDY 100-80, Epsonkompal.1002/8,v -gralikf 
GEMINI 10X, Neu mit Textsp , 100 Z/s , 3x9 Mat 
GEMINI 15%, wie 10%, jedoch bis 375 mm Papierbr 
ITOH 8510 B, Die Zuverlassigkeit ın Person 

JUKI 6100, Typenraddr.. 22 Z/s, TA-Typenräder 


Comp ular-Artikel Nachnahmeversand unlrei, Zwischenverkauf vorbehalten 
Angebole freibleibend unler Anerkennung unserer Lieferbedingungea. Technische Anderungen vorbehallen. "Apple ıst eıngetragenss 
Warenzeichen der Fa. Apple-Computer Inc.. Kalifornien. Ware mit Rückgaberecht, besonders gekennzeichnet, muß frei zuruckgeschickt 
werden. "IBM' ist eingetragenes Warenzeichen ger Fırma IBM GmbH Ffm. 


COMPUTER CENTER CONEX 


9650 SOLINGEN 11 Postfach 110206 -11 G 
Telefon (0 21 22) 75449 


DM 739,— 
DM 899, — 
DM 759,— 
DM 998,— 
DM 1198. — 
DM 1475,— 
DM 1495, — 


ERICH-WILLI MEYER 


6343 FROHNHAUSEN Postfach 70 11 


Telefon (0 27 71)350 71 


Multi l/O Inlertace Board, RS232, Disk-Controller, 
Gentroniecs, Clock, Joystick 

und Lightpen-Pori 

Eprom Writer Karte (bis 128K benutzbar) 
Hardisk/Winchesler Hosi-Adapter Karte 'KL-2022 DM 
Mainboard XT Version, 8 Siols 64K bestuckl 

mit 1 Boot-Eprom, 6 Eprom-Plalze freı "KL-10094 DM 

dto. wie vor, (jedoch mit 128K bestuckt "KL-1005 DM 

dto. wie vor, jedoch mit 256K bestuckt "KL-1006 DM 
Mainboard PC Version, 8 Slots, 64K bestuckt 

mit 1 Boot-Eprom, 6 Eprom-Plälze frer "KL-1010 DM 

dto. wıe vor, jedoch mit 128K bestuckl "KL-t011 DM 1289,— 
dto. wie vor, jedoch mit ?56K bestuckt '"KL-1012 DM 1579,— 
Beı den mit * gekennzeichneten Artikeln gehört zum Lieferumfang 
ein Manual, und T ein Schaltbild. 

IBM -- Kompatible Leerplatinen + Boards -- IBM 
Disk Conlroller f. ? Drives DM 

Disk Controller f. 4 Drives DM 

Color Grafik Video Board DM 

ARS232 Inierface Karle DM 
Centronics Paratell Interface Karte DM 
Multifunktion Interface Board DOM 

Eprom Wriler Interface Karte 

Multi 1/O Board DM 
Mainboard XT Version. 8 Slots DE 
Mainboard PG Version, 8 Slols Da 

RAM Card fur Speicher-Erweilerung DM 

Alle Leerplatinen werden mil Besluckungsptan geliefert 
Schaltbilder, soweit verfugbar, Lieferung gegen Aufpreis 

IBM -- Gehäuse/Netztelle/Tastaturen/Diskdrives - 
Rechnor Leergehäuse f Einbau v. 2 Drives DM 
Profi-Tastatur. m. Kabel im Gehause. ASCII DM 

dio. wie vor, jedoch deutsche DIN Belegung DM 
Slandard Tastatur, IBM-Look, ASCII DM 
Netzteil, mit Ventilator, 100 Walt DM 

dto. wie vor gedoch 135 Wati 

Disketten Laufwerk, 2x40 Track DS/360 KB 

Harddisk 16MByte, kpl. m. Xebec Conlrolfer 


"KL-2971 DM 
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Neologismen in der Computersprache 


von Ulrich Stiehl 


Da die Computerwissenschaft rasant 
wächst, werden fast täglich neue Begriffe 
gebildet. Diese Neologismen sind zumeist 
amerikanischer Provenienz; nur selten hat 
man den Mut, „eigene“ Wörter zu 
schaffen. 


1. Etymologieprobleme 

Falsche Wortbildungen können durch 
sorglose „wörtliche“ Übersetzungen zu- 
stande kommen. Zwei Beispiele: 
editieren: Erstens bedeutet „to edit” her- 
ausgeben (lateinisch edere = herausge- 
ben: e = heraus, dare = geben) und wür- 
de damit dem deutschen „edieren” ent- 
sprechen. Zweitens bedeutet „to edit” be- 
arbeiten, redigieren, korrigieren und müß- 
te dann auch so übersetzt werden. „editie- 
ren“ ist dagegen ein unglücklicher Zwitter 
und würde genausowenig wie „redaktie- 
ren“ (statt richtig „redigieren“) oder „Kor- 
rektieren“ (statt richtig „korrigieren”) pas- 
sen, denn -— im Gegensatz zum Engli- 
schen — werden im Deutschen Verben 
lateinischen Ursprungs dadurch gebildet, 
daß man „ieren“ an den Präsensstamm 
(und nicht an den Perfektstamm) anhängt 
(redig/o wird redigieren, corrig/o wird kor- 
rigieren, ed/o wird edieren usw.) 
disassemblieren: Betrachten wir zu- 
nächst einige andere Wörter. Der Gegen- 
satz zu „assozlieren“ lautet „dissoziie- 
ren“ und nicht „disassoziieren“. Das Ge- 
genstück zu „assimilieren“ ist „dissimilie- 
ren“ und nicht „disassimilieren“. Folglich 
müßte es „dissemblieren“ und nicht „dis- 


assemblieren“ heißen. 


„Editieren“ und „disassemblieren“ wird 
man inzwischen nicht mehr ausrotten kön- 
nen, da sie bereits eingeführt sind, doch 
würde uns Deutschen sicherlich gut an- 
stehen, wenn wir nicht alles kritiklos über- 
nehmen würden. 


2. Orthographieprobleme 

In vielen Fällen übernimmt man einfach die 
englischen Computerfachausdrücke un- 
verändert ins Deutsche. Dies bringt jedoch 
eine Fülle orthographischer und grammati- 
kalischer Probleme mit sich. 

2.1. Divis und Großschreibung: Ein 
nicht zusammengesetztes Wort (z.B. Slot 
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als lexikalisches Simplex) oder bereits im 
Englischen zusammengeschriebenes 
Wort (z.B. Softswitch) schreibt man im 
Deutschen stets mit großem Anfangs- 
buchstaben. Vielfach liegen jedoch Kom- 
posita (zusammengesetzte Wörter, hier 
meist Substantiv + Substantiv) vor, die im 
Englischen getrennt und ohne Bindestrich 
(Divis) geschrieben werden, z.B. „directo- 
ry entry“, „volume directory“ usw. Der 
DUDEN gibt für diese Problemfälle keine 
verbindlichen Regeln an. Im einzelnen 
sind zulässig: 

a) Beat generation (zweites Wort klein, 
ohne Divis) 

b) Cash-flow (zweites Wort klein, mit 
Divis) 

c) Cold Cream (zweites Wort groß, ohne 
Divis) 

d) Country-Music (zweites Wort groß, mit 
Divis) 

Man beachte: Language Card (möglich), 
aber Language-Card-Schreibschutz (nur 
so, weil letzter Bestandteil deutsches Wort 
Ist). 

2.2. Genus: Da englische Wörter kein Ge- 
schlecht kennen, steht man bei neuen An- 
glizismen vor der Frage, für welches Ge- 
nus man sich entscheiden soll. Heißt es 
„der“ oder „die“ oder „das“ Directory? 
Ich würde hier für „das“ plädieren, da das 
englische „directory“ auf das lateinische 
Neutrum „directorium“ zurückgeführt 
werden kann. Andere Beispiele: der Cata- 
log, weil „der Katalog“; das Volume, weil 
„das Volumen“; der Slot, weil „der 
Schlitz“; die Language-Card, weil „die 
Karte“; die Garbage-Collection, weil „die 
Kollektion“ ; der Controller, weil „der Kon- 
trolleur“ usw. In vielen Fällen steht man 
jedoch „auf dem Schlauch“ und muß dann 
das Genus willkürlich festlegen. Ich sage 
beispielsweise „der File“, weil französisch 
„le fil“; genausogut könnte man jedoch 
hier auch „das File“ wegen lateinisch „fi- 
lum” sagen. 

2.3. Deklination: Wenn man das Genus 
erst einmal kennt bzw. festgelegt hat, kann 
man das Problem der Deklination in Angriff 
nehmen. Wie lautet z.B. bei „das Directo- 
ry“ der Genitiv Singular („des Directory 
oder des Directorys“) und der Nominativ 
Plural („die Directories oder die Directo- 
rys")? Zunächst einige „normale Bei- 
spiele”: 

— der Whisky, des Whiskys; Pl. die Whis- 
kys; aber: der Softy, des Softies; Pl. die 





Softies; ferner: der Pool, des Pools; Pi. die 
Pools 

— die Party, der Party; Pl. die Partys oder 
die Parties 

- das Pony, des Ponys; Pl. die Ponys; 
ferner das Happening, des Happenings; 
Pl. die Happenings; aber das Playback, 
des Playback; P!. die Playbacks 

Diese Beispiele zeigen, daß englische 
Fremdwörter im Piural (fast) immer ein „s“ 
bzw. bei y-Wörtern oft ein „ies“ haben. Im 
Singular findet man bei den Maskulina und 
Neutra häufig ein „s“ im Genitiv, während 
die Feminina stets endungslos sind. Da 
die DUDEN-Grammatik keine festen Re- 
geln vorschreibt, muß man im Zweifelsfall 
den Deklinationstyp „willkürlich“ festle- 
gen, was zu erheblichen Unsicherheiten 
führt. 

2,4. Verben: Bei Verben englischer Her- 
kunft gibt es weniger Probleme. Normaler- 
weise hängt man an den „Stamm“ (poke, 
peek, move) „(e)n“ an (poken, peeken, 
moven) und konjugiert im übrigen 
schwach: ich poke, du pokst, er pokt; wir 
poken; ich habe gepokt usw. Analog: Der 
File wird gebloadet (oder zur Verdeutli- 
chung geBLOADet). 


3. Eindeutschungsprobleme 

Wenn es darum geht, neue Wörter zu 
schaffen, sind die Deutschen einfach nicht 
mutig genug. Der Engländer nimmt ohne 
viel Federlesens ein bereits vorhandenes 
Wort und verleiht ihm eine neue Bedeu- 
tung. Beispiele hierfür sind „catalog“ (ei- 
gentlich „Bücherverzeichnis“), „volume“ 
(eigentlich „Band“ eines mehrbändigen 
Buches), „string“ (eigentlich „Kordel”), 
„boot“ (eigentlich „Stiefel“) usw. Der 
Engländer denkt sich nichts dabei, wenn 
er Wendungen wie „to home the cursor” 
benutzt, während wir uns totlachen wür- 
den, wenn jemand HOME mit HEIM über- 
setzen würde. Es wäre an der Zeit, hier 
etwas mehr Mut zu zeigen. In der Neuer- 
scheinung „DOS 3.3" aus dem Franzis- 
Verlag ist der Autor B. Ruhland teilweise 
sehr mutig gewesen. Einige Beispiele (bit- 
te nicht lachen!): Bezugsadresse (für off- 
set address), Belegungsrichtung (für allo- 
cation direction), Steuerkarte (für control- 
ler), Einsteckschlitz (für slot). Allerdings 
sind auch einige Wortungetüme geprägt 
worden, mit denen ich mich nicht anfreun- 
den kann, z.B. „Sektorinitialisierungs- 
merkbereich”. 
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Kopierschutz für den 


von Matthias Greve 





Fr Fa 


Softwarehersteller arbeiten heut- 
zutage mit einer Vielzahl ausgefeil- 
ter Kopierschutzverfahren, um die 
legale Verbreitung von Raubko- 
pien zu verhindern. Der nachfol- 
gende Artikel gibt einen allgemei- 
nen Einblick in die Entwicklung und 
die zur Zeit angewandten Schutz- 
methoden, die wertfrei, d.h. ohne 
Berücksichtigung der kulturpoliti- 
schen und urheberrechtlichen Im- 
plikationen des Schützens darge- 
stellt werden, 


Nicht-formatierte Spuren: Die 
ersten Kopierschutzmethoden wa- 
ren sehr einfacher Natur. Eine 
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Spur (Track) auf der Diskette, mei- 
stens Track 3, wurde nicht forma- 
tiert. Die anfänglichen Kopierpro- 
gramme duplizierten die ganze 
Diskette Track für Track. Durch die 
fehlende Formatierung trat bei 
Track 3 ein Lesefehler auf, und der 
Kopiervorgang wurde abgebro- 
chen. 


Andere Catalog-Spur: Einige 
Softwarehersteller verlegten zum 
Schutz ihrer Programme den 
DOS-3.3-Catalog von Track 17 auf 
einen anderen Track. Solche Dis- 
ketten konnten nur noch mit einem 
modifizierten DOS gelesen 
werden. 
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Spur 35: Auch Hardware-Eigen- 
schaften der Disk-Il-Laufwerke 
wurden zum Schützen der Origi- 
naldisketten ausgenutzt. Außer 
den üblicherweise benutzten 
Tracks 0-34 kann der Schreib/Le- 
sekopf meist noch auf Track 35 
positioniert werden. Standard- 
DOS ignoriert diesen zusätzlichen 
Track mit allen hier abgelegten Da- 
ten. Dies war damals ein sehr ef- 
fektvoller Kopierschutz, da nur we- 
nigen Benutzern dieser technische 
Kniff bekannt war. Die Verwen- 
dung von Track 35 besitzt aber ei- 
nen gravierenden Nachteil. Nicht 
alle Laufwerke können Ihren Kopf 
exakt genug positionieren, um 
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Track 35 einwandfrei zu lesen, 
Knarren, Lesefehler und nicht boo- 
tende Originale waren oft die 
Folge. 


Andere Prüfsummenbildung: 
Neue Schutzverfahren mußten ge- 
funden werden, die auf allen Rech- 
nern und Laufwerken einwandfrei 
arbeiteten. Bis jetzt wurden alle 
Programme unter Standard-DOS- 
Format auf der Diskette abgespei- 
chert. Programmierer unternah- 
men erste Versuche, das Betriebs- 
system und das verwendete For- 
mat zu ändern. Während das DOS 
die 256 Datenbytes eines Sektors 
auf die Diskette schreibt, wird aus 
allen Bytes eine Prüfsumme gebil- 
det, die zusätzlich auf der Diskette 
gespeichert wird. Beim Lesevor- 
gang bildet das Betriebssystem er- 
neut diese Prüfsumme und ver- 
gleicht sie mit dem abgespeicher- 
ten Wert. Stimmen die beiden 
Werte nicht überein, ist der betref- 
fende Sektor fehlerhaft gelesen 
worden. Zum Schützen wird in ei- 
nem eigenen DOS die Art der 
Prüfsummenbildung geändert. 
Versucht der Benutzer, mit Stan- 
dard-DOS auf die geschützte Dis- 
kette zuzugreifen, stellt die Prüf- 
summenroutine eine Abweichung 
fest und meldet einen Lesefehler. 


Geänderte Header: Oft wurden 
das Disketienformat und der Auf- 
bau einzelner Sektoren geändert. 
Der Sektor einer Applediskette be- 
steht aus einem ÄAdreß- und einem 
Datenfeld. Adreßfelder werden 
vom Betriebssystem zur Orientie- 
rung auf der Diskette benötigt, da 
diese Informationen über die 
Track-, Sektor- und Volume-Num- 
mer des betreffenden Sektors ent- 
halten. Auf das Adreßfeld folgt das 
Datenfeld, in dem sich die eigentli- 
chen Datenbytes befinden. Um ei- 
ne einwandfreie Erkennung zu er- 
möglichen, beginnt jedes der bei- 
den Felder mit einer Folge von re- 
servierten Bytes, den sog. Hea- 
dern. Der Header des Ädreßfeldes 
besteht beim Standard-DOS aus 3 
Bytes ($D5 $AA $96). Wenn das 
Betriebssystem einen Sektor lesen 
will, sucht es auf der Diskette zu- 
erst nach diesen 3 Bytes, die den 
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Beginn eines neuen Sektors kenn- 
zeichnen. Konnte das Adreßfeld 
gelesen werden und handelt es 
sich um den gewünschten Sektor, 
sucht das DOS jetzt nach dem 
Header des Datenfeldes. Der Da- 
tenheader besteht wie der Adreß- 
header aus 3 Bytes ($D5 $AA 
$AD). Direkt auf den Datenheader 
folgen die codierten Datenbytes 
und ihre Checksum (= Prüfsum- 
me). Zum Schützen der Diskette 
wird die Formatierungsroutine des 
DOS so geändert, daß andere 
Adreß- und Datenheader benutzt 
werden. Schreib- und Leserouti- 
nen werden an das neue Format 
angepaßt. Der Vorteil dieses 
Schutzverfahrens ‚liegt in der un- 
veränderten Benutzerschnittstelle. 
Anwenderprogramme müssen 
nicht an das neue Betriebssystem 
angepaßt werden. Da diese Ände- 
rung im Betriebssystem relativ 
leicht zu bewerkstelligen ist, gehö- 
ren neue Daten- und Adreßheader 
inzwischen zum Standardkopier- 
schutz für Disketien. Ein neues 
Format allein ist jedoch noch kein 
zuverlässiger Schutz. Viele Nibble- 
Kopierprogramme können heutzu- 
tage solche Disketten ohne Pro- 
bleme duplizieren. 


Gerade Sektornummern: Die 
Adreßfelder bieten jedoch noch ei- 
nen weiteren Ansatzpunkt für 
Schutzverfahren, nämlich die hier 
abgelegte Sektornummer. Stan- 
dard-DOS 3.3 verwendet eine 
Sektornumerierung von 0-15. Es 
ist jedoch möglich, alle Sektor- 
nummern in gerade Zahlen zu ver- 
wandeln. Ein derart geändertes 
Format besitzt eine Sektornume- 
rierung von 0-30, die ein unverän- 
dertes DOS nicht mehr verwalten 
Kann. 


Geänderte Timingbytes: Einige 
Softwarehersteller ersannen noch 
grundlegendere Formatänderun- 
gen. Die gesamten Informationen 
eines Tracks bestehen aus einer 
riesigen Folge von Bits. Sollen Da- 
ten gelesen werden, so befindet 
sich der Schreib/Lesekopf irgend- 
wo auf einem der Sektoren der 
gewünschten Spur, wobei zu- 
nächst noch nicht bekannt ist, um 
welchen Sektor es sich handelt. Es 
ist nicht einmal sichergestellt, daß 
der Lesevorgang mit einem Byte 
beginnt. Um zu gewährleisten, daß 
alle acht gelesenen Datenbits auch 
zu demselben Byte gehören, muß 
das DOS den Lesevorgang mit der 
Kopfposition synchronisieren. 
Hierfür werden die „Timing-" oder 
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„Sync-Bytes“ verwendet, Diese 
speziellen Bytes bestehen im Ge- 
gensatz zu allen anderen Daten- 
bytes aus zehn Bits. Die beiden 
niederwertigsten Bits sind jedoch 
auf Null gesetzt, DOS 3.3 verwen- 
det als Timingbyte $FF 
(%1111111100). Nullbits zu An- 
fang eines Bytes sind nicht zuge- 
lassen. Deshalb startet der Con- 
troller erst mit dem Einlesen eines 
neuen Bytes, wenn er eine 1 als 
Datenbit auf der Diskette erkennt. 
Diese Hardware-Eigenschaft wird 
in Verbindung mit den Timingbytes 
zum Synchronisieren benutzt. Auf 
einem Track befinden sich minde- 
stens fünf Timingbytes vor jedem 
Adreß- und Datenfeld. Startet das 
DOS den Lesevorgang, so erreicht 
der Kopf irgendwann ein Feld von 
Timingbytes. Da die Leseroutinen 
noch nicht synchronisiert sind, be- 
ginnt der Controller irgendwo in- 
nerhalb des ersten Timingbytes 
Datenbits von der Diskette zu le- 
sen. Da diese Spezialbytes eine 
Länge von 10 Bits besitzen, jedoch 
nur 8 Bits gelesen werden, ist der 
Lesevorgang des nächsten Ti- 
mingbytes genau um zwei Bits ver- 
schoben. Dieser Vorgang wieder- 
holt sich so lange, bis eines der 
beiden Nullbits zu Anfang des neu- 
en Bytes steht. Nullbits am Beginn 
eines Bytes werden jedoch vom 
Controller ignoriert. Daher ist das 
nächste gelesene Byte ein kom- 
plettes Timingbyte. Von da an wer- 
den die acht Einserbits der Timing- 
bytes gelesen und die beiden fol- 
genden Nullbits übersprungen. 
Der Controller und die Leserouti- 
nen sind jetzt synchronisiert. Bei 
Datenbytes, die diesen Sync- 
Bytes folgen, ist sichergestellt, daß 
alle acht Bits wirklich zum gleichen 
Byte gehören. Sync-Bytes müssen 
bezüglich ihrer Bitkombination be- 
sonderen Ansprüchen genügen. 
Daher kommen außer $FF nur 
noch wenige andere Bytes in Fra- 
ge. Wird nun statt $FF ein anderes 
Byte als Timingbyte benutzt, ist 
das Standard-DOS nicht mehr in 
der Lage, seine Leseroutine mit 
der Diskette zu synchronisieren. 
Kein einziges Byte kann von einer 
so geschützten Diskette gelesen 
werden. 


Spezielle Datenbytes: Diese Ei- 
genheit des Controllers wird auch 
bei anderen Schutzverfahren aus- 
genutzt. Spezialroutinen schreiben 
ein Byte innnerhalb des Datenfel- 
des im Format eines Timingbytes, 
d.h. zwei zusätzliche Nullbits am 
Ende des Bytes. Übernimmt der 


Controller dieses Byte von der Dis- 
kette, liest er die ersten acht Bits 
und überspringt die beiden folgen- 
den Nullbits. Sie werden einfach 
ignoriert, da der Lesevorgang erst 
beim nächsten Einserbit wieder 
beginnt. Kopierprogramme über- 
tragen dieses Spezialbyte als nor- 
males Datenbyte auf die Kopie. Die 
beiden Nullbits fehlen. Standard- 
bytes werden innerhalb von 32 
Maschinenzyklen auf die Diskette 
geschrieben. Zum Schreiben von 
Timingbytes benötigt das DOS auf 
Grund der Länge von zehn Bits 40 
Zyklen. Werden normale Daten- 
bytes gelesen, erhält die Leserou- 
tine spätestens alle 32 Zyklen ein 
neues Byte von der Diskette. Ist 
die Leseroutine jedoch an dem 
Spezialbyte angekommen, tritt 
durch das Auslassen der zwei 
Nullbits eine kleine Verzögerung 
auf. Bei geschützten Programmen 
mißt ein mitlaufender Zähler die 
zum Lesen eines Bytes benötigte 
Zeit. Sollte diese Zeitverschiebung 
nicht auftreten, muß es sich um 
eine Kopie handeln. 


Synchronisierte Tracks: Diese 
bildeten die Grundlage der näch- 
sten Methode. Bei der Erstellung 
der Originaldisketten formatieren 
geeignete Routinen die Diskette 
so, daß die einzelnen Tracks eine 
bestimmte physikalische Anord- 
nung zueinander besitzen, was 
z.B. bedeutet, daß jeweils die er- 
sten Sektoren eines Tracks — von 
der Diskettenmitte aus gesehen — 
in einer Reihe liegen. Beim Boot- 
vorgang liest das Programm Track 
0 bis zu einer bestimmten Stelle 
ein und verschiebt dann den 
Schreib/Lesekopf auf Track 1. Oh- 
ne auf die Sektornummer zu ach- 
ten, wird jetzt auf Track 1 der näch- 
ste Sektor gelesen. Waren Track 0 
und Track 1 einwandfrei synchroni- 
siert, hat die Software auf Track 1 
auch den richtigen Sektor gelesen. 
Auf diese Weise läßt sich ein gan- 
zes Anwenderprogramm in den 
Speicher laden. Synchronisiert ein 
Kopierprogramm beim Formatie- 
ren die Kopie nicht, läßt sich das 
Original zwar einwandfrei kopie- 
ren, jedoch geht die physikalische 
Anordnung der Tracks zueinander 
verloren. Diese Verschiebung der 
Tracks auf der Kopie im Gegensatz 
zum Original bewirkt, daß beim 
Bootvorgang falsche Sektoren ge- 
lesen werden. 


Nibble-Counting: Auf einer ande- 
ren Hardware-Eigenschaft beruht 


das „Nibble-Counting“. Da nur 
sehr wenige Laufwerke mit genau 
der gleichen Umdrehungsge- 
schwindigkeit arbeiten, differiert 
beim Formatieren die Tracklänge 
von Laufwerk zu Laufwerk. Nibble- 
Counting benutzt diese Tatsache, 
um Original und Kopie zu unter- 
scheiden. Bei Erstellung der Origi- 
naldisketten werden durch noch- 
maliges Einlesen nach der Forma- 
tierung für jeden Track die Längen 
notiert und Timingbytes sowie Da- 
ten- und Adreßfelder mitgezählt. 
Daher auch der Name „Nibble- 
Counting“. Die so erhaltenen In- 
formationen werden auf der Dis- 
kette abgelegt. Während des Boot- 
vorgangs überprüft die Software 
die Längen der Tracks und ver- 
gleicht sie mit den auf der Diskette 
gespeicherten. Dies ist ein eindeu- 
tiges Entscheidungskriterium, da 
es recht unwahrscheinlich ist, daß 
die Tracklängen von Kopie und 
Original übereinstimmen, 
Synchronisierte Tracks und Nib- 
ble-Counting gelten heute bereits 
als veraltet, da viele Nibble-Kopier- 
programme inzwischen in der Lage 
sind, diese beiden Schutzmetho- 
den zu umgehen. 


Halbspuren: Laut Handbuch be- 
sitzen die Laufwerke des Apple || 
35 Spuren, auf denen der Schreib/ 
Lesekopf positioniert werden kann. 
Doch die Diskettenstation ist 
durchaus in der Lage, 70 Spuren 
anzufahren. Diese Spuren — Halb- 
spuren genannt — besitzen im Ge- 
gensatz zu den 35 Standard-Spu- 
ren nur den halben Abstand zuein- 
ander. Wie ist das möglich? In den 
Laufwerken befindet sich ein 
Schrittmotor, der zur Bewegung 
des Kopfschlittens dient. Um den 
Schlitten von einer der 35 Spuren 
zur nächsten zu verschieben, wer- 
den normalerweise vier Schritte 
ausgeführt. Werden statt dessen 
nur zwei ausgeführt, befindet sich 
der Kopf in einem Bereich zwi- 
schen zwei der 35 Spuren. (Tech- 
nische Details hierzu im Peeker, 3/ 
89,.0.. 1011) 

Halbspuren können jedoch nur be- 
dingt verwendet werden. Durch 
den Aufbau des Schreib/Lesekop- 
fes ist es nicht möglich, eine Spur 
und die unmittelbar benachbarte 
Halbspur zu beschreiben. Über- 
sprechen und Datenverlust wären 
die Folgen. Trotzdem ist es mög- 
lich, Halbspuren zur Datenspei- 
cherung zu benutzen. Vorausselt- 
zung hierfür ist, daß direkt benach- 
barte Tracks nicht benutzt werden. 
Eine Möglichkeit wäre, alle Spuren 
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einfach um eine Halbspur nach in- 
nen zu verschieben. Die Diskette 
besitzt dann zwar immer noch 35 
Spuren, aber normales DOS findet 
keine einzige mehr. 


Spiraltracks: Halbspuren sind die 
Grundlage eines ausgefeilten Ko- 
pierschutzes, der es erlaubt, alle 
70 Spuren der Disk-Il-Laufwerke 
durch die Verwendung von Spiral- 
tracks auszunutzen: Um Über- 
sprechen zu vermeiden und Da- 
tensicherheit zu garantieren, muß 
der Abstand zwischen zwei ver- 
wendeten Spuren mindestens eine 
ganze Spur betragen. Zu diesem 
Zweck übertragen spezielle Routi- 
nen die Daten nach einem ganz 
bestimmten Schema auf die Origi- 
naldisketten. Bei der Erstellung 
des Originals wird ca. 1/3 der er- 
sten Halbspur beschrieben und 
der Kopf auf die benachbarte Halb- 
spur gefahren. Hier wird nun wie- 
der 1/3 der Spur beschrieben. Die- 
ser Vorgang wiederholt sich solan- 
ge, bis alle Daten auf die Diskette 
übertragen sind. Die Halbspuren 
scheinen sich spiralförmig zur Dis- 
kettenmitte hin zu winden. Daher 
auch der Name Spiraltracks. Die- 
ses Schutzverfahren besitzt be- 
reits eine hohe Kopiersicherheit 
gegenüber modernen Nibble-Ko- 
pierprogrammen, da diese zwar 
Halbspuren lesen, jedoch meist 
nur komplette Halbspuren schrei- 
ben können. Wird eine Diskette 
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Halbspur für Halbspur kopiert, zer- 
stört der Kopf durch seine Breite 
beim Schreiben jeweils die be- 
nachbarten Halbspuren. Einige 
wenige Programme können nach 
umfangreichen Parameterände- 
rungen oder Programmierung auf 
dieses Format eingestellt werden. 
Der Zeitaufwand für diese Ände- 
rungen ist jedoch sehr hoch. Die 
Implementierung dieses Schutz- 
verfahrens ist recht aufwendig, da 
neue Schreib/Leseroutinen erfor- 
derlich sind und die Anwendersoft- 
ware speziell hierfür angepaßt wer- 
den muß. Die Kopiersicherheit, die 
Spiraltacks und ähnliche Verfahren 
bieten, rechtfertigt jedoch den ho- 
hen Aufwand. 


Pseudo-Sektoren: Neue Disket- 
tenformate liegen auch der Ver- 
wendung von Pseudo-Sektoren 
zugrunde. Ein Pseudo-Sektor be- 
steht wie ein normaler DOS-Sektor 
aus einem Ädreßfeld und dem dar- 
auffolgenden Datenfeld. 342 co- 
dierte Datenbytes sind in einem 
Standarddatenfeld abgelegt. Im 
Gegensatz dazu kann das Daten- 
feld eines Pseudo-Sektors bis zu 
5K an codierten Daten enthalten. 
Ein Sektor dieser Länge belegt 
dann einen vollständigen Track. Es 
ist fraglich, ob sich der Aufwand für 
diese Art von Kopierschutz lohnt. 
Zum einen ist die Programmierung 
der neuen Schreib/Leseroutinen 
sehr zeitintensiv. Zum anderen 
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stellen Pseudo-Sektoren kaum 
noch eine Schwierigkeit für ein gu- 
tes Nibble-Kopierprogramm dar. 


Magnetschicht-Zerstörung: Zeit- 
weise versuchten Softwarehäuser, 
Kopierschutzverfahren durch Be- 
schädigung des Originals zu reali- 
sieren. An einer bestimmten Stelle 
der Diskette wurde durch einen 
Kratzer die Magnetschicht des Da- 
tenträgers zerstört. Dadurch ent- 
stand ein Bereich auf der Diskette, 
der sich weder initialisieren noch 
beschreiben ließ. Die geschützte 
Software versuchte einen der zer- 
störten Tracks zu formatieren. Ge- 
lang dies ohne Probleme, mußte 
es sich folglich um eine Kopie han- 
deln. Die zerstörten Tracks des 
Originals hätten nicht einwandfrei 
initialisiett werden können. Die 
zerkratzte und dadurch sehr un- 
ebene Magnetschicht der Diskette 
griff jedoch die empfindlichen 
Schreib/Leseköpfe der Laufwerke 
an. Laute Schabgeräusche und ho- 
he Abnutzung der Köpfe waren die 


Folgen. Grund genug, dieses 
Schutzverfahren wieder aufzu- 
geben. 


Der Trick mit der Unformatierbar- 
keit mancher Teile der Originaldis- 
kette wurde jedoch in einem ande- 
ren Kopierschutzsystem wieder 
aufgegriffen. Vor der Erstellung 
des Originals magnetisiert eine 
spezielle Hardware einige Tracks 
der verwendeten Diskette so stark, 
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Halbspuren 


Spiralförmige 
Tracks 
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daß alle Formatierungsversuche 
mit dem schwachen Magnetfeld 
des Schreib/Lesekopfes erfolglos 
bleiben. Geschützte Programme 
versuchen diese Spuren auf der 
Diskette, von der sie gestartet wur- 
den, zu formatieren. Ein Schreib- 
oder Lesefehler bei diesem Vor- 
gang bestätigt, daß es sich um das 
Original handelt. 


Protection-Keys: Einen ganz an- 
deren Weg gehen manche Soft- 
warehersteller, indem sie sog. 
„Protection-Keys“ verwenden. Bei 
diesen Keys handelt es sich um 
spezielle Bausteine, in denen eine 
bestimmte Information fest „ver- 
drahtet“ ist. Der Key muß in den 
Game-I/O-Port des Apple II ge- 
steckt werden, damit das Pro- 
gramm diese Information abfragen 
Kann. Mit jedem Originalprogramm 
wird genau ein Key geliefert. Damit 
ist die Frage nach der Kopierbar- 
keit der Software hinfällig. Das Pro- 
gramm läuft nur mit diesem einen 
Key oder gar nicht. Oft sind diese 
Bausteine in ein Gehäuse einge- 
schweißt oder mit Epoxydharz aus- 
gegossen. Protection-Keys sind 
durch ihren Aufbau eine teure, 
aber auch sichere Kopierschutz- 
methode. Das Hauptanwendungs- 
gebiet für diese Art des Schutzes 
liegt bei kommerzieller Software, 
die in geringeren Stückzahlen zu 
höheren Preisen produziert wird. 
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Peeker-Sammeldisketten 


Reeker 
Sammeldiskette 
Heft i und 2, 1984 





Era 


Einzelbezug DM 28, — 
Fortsetzungsbezug DM 20.— 

(Jederzeit kündbar, jedoch mindestens 
6 Disketten) 

(* = nur auf Diskette, nicht im Peeker 
gelistet! Seitenangaben beziehen sich 
auf Beginn des Listings) 

Hüthig Software Service 

Postfach 102869 - 6900 Heidelberg 1 


Disk# 1 
(Heft 1+2, 1984) 


T,DISASSEMBLER.,65C02 (1/84, S. 15) 
DISASSEMBLER.65C02 


T.ACCEL.WAIT (1/84, S. 22) 
ACCEL.WAIT 
T:ACCEL.BOOT 
ACCEL.BOOT 
ACCEL.LC.KOPIERER 
TACGELLG.KOPIE 
ACCEL.LC,.KOPIE 
T,ACCEL.ROM,KOPIEI 
ACCEL.ROM.KOPIE1 
T.ACCEL.ROM.KOPIE2 
ACCEL.ROM,KOPIE2 


TURTLE.GRAFIK.MIT.REMS (1/84, 5,29) 
TURTLE.GRAFIK.OHNE.REMS * 


DOUBLE.LORES.SOFTSWITCH.DEMO 
(1/84, S. 37) 
DOUBLE,LORES.APPLESOFT,DEMO 
AMPER.DOUBLE.LORES.DEMO 
T.AMPER.DOUBLE.LORES 
AMPER.DOUBLE.LORES 
T.DOUBLE.LORES 

DOUBLE.LORES 


HIRES (1/84, S. 41) 
T.PRINTHIRES 
PRINTHIRES 


DHGR.APSOFT.DEMO (2/84, 5. 30) 
AMPER.DOUBLE.HIRES.BAS 
AMPER,DOUBLE.HIRES 
T.AMPER.DOUBLE.HIRES 
DHGR.LINEPLOTTER 


INSTRING.TEST (2/84, S, 43) 
INSTRING.OBJ 
T.INSTRING,OBJ 
INSTRING.LISA,SOURCE 


LOESCHEN.EINES.ARRAYS 
(2/84, S. 52) 


ULTRATERM.ENGLISCH * (2/84, S. 60) 
ULTRATERM,DEUTSCH * 


PRIMZAHLEN.OVERMEYER * 
(2/84, S. 70) 

PRIM.OBJO * 

PRIM.OBJ1 * 

PRIM.TEST * 
PRIM.TOOLKIT.SOURCE * 


Disk 42 
(Heft 1-2, 1985, DOS-Format) 


T.RAMDISKLOC (1-2/85, S. 14) 
RAMDISKLC 


T.IBS.RAMDISKDRIVER (1-2/85, S. 20) 
IBS.RAMDISKDRIVER 
T.AP20.RAMDISKTEST 
AP20,RAMDISKTEST 


T:QUICKCOPY (1-2/85, 5: 26) 
QUICKCOPY 
QUICKGOPY.PUFFER 
PRODOS.COPYA 
T.PRODOS,COPYOBJ * 
PRODOS.COPYOBJ 


im 
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PRODOS.PATCH (1-2/85, S. 31) 


T.APPLESOFT.FRE (1-2/85, S. 36) 
T.LC.FRE 

LC.FRE 

FRE.TEST 

T.RAM.FRE * 

RAM.FRE 


T,SCHIRMDISK (1-2/85, S. 44) 
SCHIRMDISK.LISA.SOURCE 
SCHIRMDISK 


T.VIDEXT 
VIDEXT.LISA,SOURCE 
VIDEXT 


GETPAS (1-2/85, S. 70) 
T.GETPAS.ASS * 

GETPAS.ASS 
GETDOS,PASCAL.SOURCE 
COPYDUPDIR.PASCAL.SOURCE 


PRODOS.EDITOR.MACROS 
(1-2/85, S. 86) 


Disk +3 
(Heft 1-2, 1985, CP/M-Format) 


STEUER.84 (1-2/85, S. 47) 
PASS.BAS 
MENUE.BAS 
HELP.BAS * 
A.BAS 
B.BAS 
C.BAS 
D.BAS 
E.BAS 
F.BAS 
G.BAS 
H.BAS 
.BAS 
J.BAS 
K.BAS 
L.BAS 
M.BAS 
N.BAS 


Disk #4 
(Heft 3-4, 1985) 


TESTGENERATOR (3/85, 5. 26) 
SAETZE 

BAHNFAHRT * 

zur 

TUN.UND.,SOLLEN * 

IRGEND * 


MULTIPRECISION (3/85, S. 32) 


T.WS.TRANSFER (3/85, S. 36) 
WS.TRANSFER 
T,WS.TRANSFER.2 * 
WS.TRANSFER,2 * 

GETCPM 


PRIM.0.SC.SOURCE (3/85, S. 62) 
PRIM.O.BIN 

PRIM.1.5C.SOURCE 

PRIM.1.BIN 

PRIM.FP 


ACCELERATOR.ABSTELLEN 
(3/85, 5. 66) 


T.WILDCARD.TEST * (3/85, S. 72) 
WILDCARD.TESTI * 
T,WILDCARD.TEST2 * 
WILDCARD.TEST2 * 


XPLOT.DEMO (4/85, S. 18) 
XPLOT,ROUTINE 
TAXPLOT.ROUTINE 


MENUE.GENERATOR (4/85, S. 22) 
T.MACROS,65C02 (4/85, S. 31) 


TERMINAL (4/85, 5.36) 
TERMINAL,B 
T.TERMINAL.B 


CAT.ARRAY (4/85, S. 44) 
CAT.SAVER 
EINTRAG.SUCHER 
EINTRAG.ANALYSE 
PRODOS.READER 
T.PRODOS.READER.OBJ 
PRODOS.READER.OBJ 


MOUSESTUFF,PASGAL.SOURCE 
(4/85, 5.51) 
MOUSE.ASS.PASCAL.SOURCE 
TESTMOUSE.PASCAL,SOURGE 
DRAWMOUSE.PASCAL.SOURGE 


INALL.DATA (4/85, S. 70) 
SCREEN80.DATA (4/85, 5. 33) 
SCREEN80.SAVER (4/85, S. 76) 


Disk #5 
(Heft 5, 1985, DOS-Format) 


T.FM.BSP (5/85, S. 9) 
FM.BSP 


T.SLOTRAMDISK (5/85, S. 13) 
SLOTRAMDISK 
SLOTRAMDISK,HELLO 


PLOT.2.0 (5/85, S. 20) 
TPLOTEB 

PLEOTEB 
PLOT,PROTECTOR 


T.CONVERT560 (5/85, S. 26) 
GONVERTS60 
CONVERT560.DEMO 


T.EDA (5/85, S. 33) 
EDA 


TRANSCEND,PASCAL,SOURCE 
(5/85, S. 36) 


T.BLOCKTRACER (5/85, S. 51) 
BLOCKTRAGER 
T.BLOCKTRACER1 
BLOCKTRAGERI 


FORMAT.LC (5/85, S. 56) 
FORMAT.LC.START 
T,DISKDRIVER.DEMO 
DISKDRIVER.DEMO 


RANDOM.DEMO (5/85, S. 69) 
COLUMN80.DEMO 


SUPERDUMP,EPSON (6/3851) 
SUPERDUMP.IMAGEWRITER 
SUPERDUMP,BILD 
T.,SUPERDUMP 
SUPERDUMP 

EPSON 

IMAGEWRITER 
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INTUS - Lernprogramme 


in deutscher Sprache für Apple Ile und Ilc. 


© Rechtschreib-Trainer. 4 Übungsarten, 16 Bereiche, 
über 4000 Wörter und Kurzsätze. Sehr wirkungsvoll, 
gute Erfolge bei Legasthenie DM 125,- 


@ Wortschatztrainer Englisch und Französisch, je DM 98,- 
@ Maschineschreiben wie der Blitz. 20 Lektionen. DM 188,- 
® Basic-Lernprogramm. 14 Lektionen. DM 295,- 
@ Lesen wie der Blitz.Wirkungsvolles Lesetraining. DM 98,- 
® Kinderschule. Beliebte Vorschulprogramme. DM 69,- 


® Demo-Disk. mit Kostproben aus 9 Programmen. DM 10,- 
Katalog gratis. 


INTUS SOFTWARE 


Kaiserstraße 21 - 7890 Waldshut-Tiengen - Telefon 07751-7920 


gez NICROMINT | 


\4cromınt 
_ LLTREFFER 
| LASAR 16 


IBM 264 K, TEAC B FDD, Contr. 
color Graphik, Multifunktionscard, 


Tastatur, Monitor 4.990; 


Netzteil 15 A 


LASAR ZE 


— Apple comp. 64 K + 


4, 1.290; 


6502 + Z80 A 
80 Z sw Tastatur 
Außerdem volles Rückgaberecht innerhalb 
14 Tagen ohne Begründung. 










_ 








® Mehrzweckklappgehäusellt. Abb. 179,- | 179,— 
® Schaltnetzteile Apple5 AlIBM 15A 115,- | 350,— 
® Profitastatur dtsch. LASAR 2000 299,— | 299, — 
® Interface ab 95,— | 400,— 
® Monitor 22 Mhz incl. Fuß, bernstein 299,- | 299,— 


Prompte Belieferung von 100 m? Lagerfläche. 
Kostenlose Tiefstpreishändlerliste noch heute schrift- 
lich anfordern — großes Angebot an IBM-Comp. 


Generalimporteur MICROMINT Computer GmbH 
Hochdahler Straße 151, 4006 Erkrath 2 
Telex 8589305 mem 


02104/33024 





Der nächste Peeker 
Heft 6/1985 


erscheint am 
20.5.1985 
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{030) 342 88 00 





Bismarckstr. 67, D-i000 Berlin 12 
de Ablage — Bearbeiten Zeichensotz Grüße Stil BETT 


"Gratis! 


AppleQuick 


Das handliche Nachschlagewerk | 
für haufig gebreuchte Adressen 
und Befehle! 

64 Seiten über Applesoft, DOS, 
ProDOS, Pascal, CP/M 
Gleich anfordern! 



















Eine detaillierte Beschreibung der 

Apple li-Schaltungen 

wenn Sie Ihren Apple selbst repa- 

rieren, Interface-Karten oder 

Schaltungserweiterungen entwerfen 

oa oder einfach nur besser über des 

- Innenleben Ihres Apples Bescheid 

wissen wollen - dieses Buch bietet 

Ihnen eine Fülle an Informationen: 

= Schaltpläne und Zeitdiagramme, 
Theorie und praktische Tips, 








Apple Il 
Schaltpläne 
Winston D. Gayler 











1 ISBN: 3-89058-012-2 
215 Seiten, DIN A4 










} Das Assembler-Lehrbuch für BASIC- HS 
ilh Kenner 

| Roger Wagner, der Autor vieler be- 
kannter Softvwrare-Pakete, schrieb 

| eine monatliche Kolumne über As- 
sembler-Programmierung in der 
Appte-Zeitschrift SOFTALK 

Der vorliegende BAnd faßt diese 
Reihe, korrigiert und erweitert, zu- 
sormmen: Eine stufenweise Einfüh- 
rung in die Befehle und Strukturen 
der 6502 Assemblersprache, mit 
vielen Beispielen von der einfachen fi 






| Apple Il 
| Assembler" 






























3-89058-003-3 277 Seiten DM 48,-- 
komplett mit Disk DM 89,-- 










Ein Simulationsprogramm, das 
Sie In das Innere des 6502- 
Mikroprozessars führt. Sie se- 
hen auf dem Bildschirm, wie 
die einzelnen Instruktionen in 
Zeitlupe susgeführt werden, wie 
sich die Register und die Flags 
verändern. Ein unverzichtbares 
Hilfsmittel beim Erlernen der 
|Assembler-Progremmierung - 
danach ein wertvolles Werkzeug 


| Visible Computer 
Charles Anderson 

beim Testen Ihrer eigenen Pro- 4 

gramme. 


El Komplett mit einem 6502-Editor/Assembler, deutschem Hand- 


buch (150 Seiten) und über 30 Beispielprogrammen. 
3-89058-019-X 



























DM I29 == 











In allen Buchhandlungen und Computershops oder direkt von: 
Pandabooks, Bismarckstr. 67, 1000 Berlin 12, (030) 342 88 00 
mM EM Bestellcoupon BEEBRBSAEHSEREBEN 
OD V-Scheck HeRUbns 
(sperenfreie Lieferung) 
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Apple-Kompatible 


von Hans-Kurt Kuhn 


Ananas, Banana, Boscop oder we- 
niger botanisch und etwas weniger 
an Apple erinnernd Atlas, Lazar, 
Pluto oder manchmal auch schlicht 
Computer — so heißen einige Bei- 
spiele aus der „Familie“ der Ap- 
ple-Nachbauten oder vornehmer 
der „Apple-Kompatiblen“. Kompa- 
tibel wird dabei In dem Sinne ge- 
braucht, daß auf Original-Apple-I|- 
(Plus)-Geräten verwendbare Soft- 
ware hier ohne Änderungen lauffä- 
hig ist. 


Wie Kompatible entstehen 

Als Steven Jobs und Stephen 
Wozniak 1976 der große Wurf ge- 
lang, mit gängigen Mikrochips und 
einem handelsüblichen Prozessor 
auf einer Platine von kaum mehr 
als DIN-A4-Größe einen universell 
erweiterbaren Personalcomputer 
namens Apple Il zu realisieren, war 
ihnen wohl nicht bewußt, daß die- 
ser genial-einfache Aufbau einen 
hohen Tribut fordern würde: Wenn 
jemand die Kosten der verwende- 
ten Bausteine zusammenrechnet, 
kommt er sehr leicht darauf, daß 
sich ein solcher Apple II für sehr 
viel weniger Geld nachbauen läßt, 
als Apple für das Original benötigt. 
Man fotografiere also eine Original- 
Apple-Platine (den Apple-Firmen- 


MMU 2.0 


Memory Managements 


Utilities 


für die Apple Ile 64K-Karte 


aufdruck kann man dabei abdek- 
ken), stelle auf die heute jedem 
Elektronikfan geläufige Art die 
neue = alte Platine her, bestücke 
diese nach Vorbild, baue eventuell 
auch noch das Apple-Netzteil nach 
und setze das Ganze in eine auf 
der Abkantbank hergestellte Alu- 
miniumkiste mit Fernosttastatur — 
und fertig ist der Urvater des „Ap- 
ple-Kompatiblen“, also eines In 
elektronischer Hinsicht sklavi- 
schen Original-Nachbaus. 
Offensichtlich haben auch bei uns 
in Deutschland einige in der Elek- 
tronikszene beheimatete (Neu-) 
Unternehmer diese Gelegenheit 
ergriffen, denn bei etlichen der 
heute erhältlichen „Kompatiblen" 
handelt es sich noch um solche 
nachempfundene Apple ||, deren 
rein elektronische Nachgestaltung 
wohl zulässig ist. 


F8-ROM 

Kritisch wird es bei der in PROMs 
oder EPROMs untergebrachten 
Firmware aus dem Hause Apple 
bzw. Microsoft (das F8-ROM ist 
von Apple, der Applesoft-Interpre- 
ter von Microsoft), da hier mög- 
licherweise das Urheberrecht tan- 
giert wird: So bieten die Hersteller 
der „Kompatiblen“ ihr Produkt 
meist ausdrücklich „mit leeren 
EPROMs, ohne Firmware” an. 
Dem zum „Kompatiblen" fest Ent- 


von. Stiehl 








Softbreaker 1.0 


Eine softwaremäßige Interrupt-Utility 
für die Apple lle 64K-Karte 


schlossenen ist auch dies kein 
Hindernis, sofern er über einen 
Bekannten mit Original-Apple-I| 
und EPROM-Brenner sowie 
Kenntnissen in der Maschinenpro- 
grammierung verfügt. Die erforder- 
lichen Speicheradressen verrät 
freundlicherweise das Apple-Hand- 
buch, das auch ein vollständiges 
Assemblerlisting des Autostart-F8- 
ROMs enthält. 


Sofern es sich also um einen sol- 
chen Kompatiblen handelt: Was 
sollte an ihm schlechter sein als an 
einem Original? Höchstens die 
nach einiger Zeit zum Prellen nei- 
gende Billigtastatur. Aber auch hier 
schafft der Import Abhilfe: Seit 
einiger Zeit sind Originaltastaturen 
bei uns erhältlich, und das so 
preiswert, daß sich die Verwen- 
dung anderer Tastaturen kaum 
noch lohnt. 


Die Versuche, selbstverfaßte Firm- 
ware in den EPROMs abzulegen, 
scheinen bei der Käuferschaft auf 
nicht sehr viel Gegenliebe zu sto- 
ßen, da sie dann z.B. auf das lieb- 
gewordene selbststartende Fö- 
ROM oder gar auf Applesoft-Basic 
verzichten und sich mit FORTH 
oder ähnlichem bescheiden müs- 
sen. Hier tut sich ein Feld für As- 
semblerprogrammierer und Hard- 
warekenner auf, die das F8-ROM 
so umschreiben, daß es selbststar- 
tend wird, ohne als Autostart- 
ROM-Kopie gelten zu müssen, 










INPUT 2.0 


Ein Bildschirm- 
Maskengenerator 

für DOS 3.3 und ProDOS 
von U. Stiehl 


Disk-Controller 

Wenden wir uns den Peripheriege- 
räten und Erweiterungen zu: Die 
von Apple verwendeten Shugari- 
Laufwerke sind bis auf die An- 
steuerungselektronik des Schreib/ 
Lesekopfes als preiswerte Import- 
Allzwecklaufwerke erhältlich und 
brauchen lediglich mit der richtigen 
Steuerung, dem Analogboard, 
ausgerüstet zu werden. Diese 
Analogboards wurden anfangs auf 
die gleiche Weise wie die Mother- 
boards kopiert. Mithin sind diese 
Laufwerke, bis auf den Namen, 
Apple-Drives. Anders verhält es 
sich bei den Japan-Importen von 
Billig-Drives, meist als Slimline-Ty- 
pen erhältlich: Hier ist das Analog- 
board in die Antriebselektronik In- 
tegriert, wie auch die Fernost-Im- 
porte der Disk-Drive-Controller an- 
scheinend Eigenentwicklungen 
sind. Dies gilt auch für die impor- 
tierten Zusatzkarten, also 16K-Er- 
weiterungen, 80-Zeichenkarten, 
Printer-Interfaces und Z80-Karten, 
wobei allerdings einige nicht ganz 
geklärte Inkompatibilitäten auftre- 
ten: So funktioniert z.B. der in der 
ersten Peeker-Ausgabe geschil- 
derte ProDOS-Patch ab Adresse 
52659: EA EA, der die Namen- 
sprüfroutine lahmlegen soll, in Ver- 
bindung mit einem Original-Apple- 
F8-ROM (!) auf meinem Kompati- 
blen durchschlagend: Derart ge- 
patchtes Original-ProDOS steigt 
aus, während es auf dem Apple Il 
läuft! (Es mußte $265B heißen und 
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DOS 3.3 (und ProDOS) 
von. Stiehl 


1984, Diskette und Manual, DM 98,- 
ISBN 3-7787-1023-1 


Insgesamt enthält die neue „MMU 2.0” - 
Diskette über 25 Programme, die neue 
Einsatzmöglichkeiten für die Extended 80 
Column Card (erweiterte 80-Z-Karte = 
64K-Karte für den Apple Ile) erschließen. 
Ein Teil der Programme laufen auch auf 
dem Apple II Plus, doch ist „MMU 2.0° 
primär für 64K-Karte-Besitzer gedacht. 


Gerätevoraussetzung: Apple Ile mit 64K- 
Karte oder lic 


Hüthig Software Service, 
Postfach 10 28 69, D-6900 Heidelberg 











1984, Diskette und Manual, DM 48,- 
ISBN 3-7785-1022-3 


Softbreaker ist ein Assemblerprogramm, mit 
dessen Hilfe Programme, die sich von der 
64K-Karte (= Extended 80 Column Card für 
den Apple Ile) starten lassen, unterbrochen, 
gespeichert, geladen und exakt an der Stelle 
der Unterbrechung fortgeführt werden kön- 
nen. Dadurch ist es auch möglich, Siche- 
rungskopien von sogenannten kopierge- 
schützten Programmen herzustellen. 

Mit Softbreaker unterbrochene Programme 
werden komplett, d. h. die ganzen 64K ein- 
schließlich Language Card, in nur ca. 11 Se- 
kunden auf einer formatierten Diskette gesi- 
chert. 

Gerätevoraussetzung: Apple Ile mit 64K- 
Karte 


Hüthig Software Service, 
Postfach 10 28 69, D-6900 Heidelberg 














1984, Diskette und Manual, DM 98,— 
ISBN 3-7785-1021-5 


„Input 2.0" liegt wahlweise in der Bank 1 
oder Bank 2 der Language Card und wird 
durch einen kurzen Driver in den unteren 
A8K aufgerufen. 

Für jedes Feld der Bildschirmmaske lassen 
sich u.a. definieren: Feldlänge (bis zu 255 
Zeichen) — Vtab — Htab — Datentyp (insge- 
samt 8 Typen) — Scrollflag (starre oder dyna- 
mische Maske) — Ctriflag — Füllflag — Lösch- 
flag — Bildschirmflag (40- oder 80-Z-Darstel- 
lung). Innerhalb eines Eingabefeldes besteht 
jeder denkbare Redigierkomfort (Insert, De- 
lete, Rubout, Restore usw.). 
Gerätevoraussetzung: Apple Ile oder IIc; fer- 
ner Apple II+ im 40-Zeichenmodus 


Hüthig Software Service, 
Postfach 10 28 69, D-6900 Heidelberg 
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wurde im Peeker 2/84, S. 10 korri- 
giert. Anm.d.Red.) 


80-Zeichenkarte 

Ein Problem ganz besonderer Art 
hinsichtlich der Kompatibilität wirft 
die 80-Zeichenkarte auf: Sie wird 
fast ausnahmslos als videxkompa- 
tibel angepriesen, ist es aber in 
den seltensten Fällen. 

Nach meiner Zählung gibt es min- 
destens vier Versionen: 

— Die erste Karte hat keinen Soft- 
switch, so daß für die Grafik das 
Ausgangskabel umgesteckt wer- 
den muß. 

— Die zweite Version besitzt einen 
sog. Softswitch, ist aber deswegen 
nicht zur Videxkarte mit Softswitch 
kompatibel, weil sie nicht durch die 
Befehlsfolge Ctrl-Z,1, sondern nur 
durch Reset bzw. durch PR#0: 
IN#0: HGR in den 40-Zeichenmo- 
dus zurückschaltet, was sehr selt- 
sam ist. Außerdem verwendet sie 
einen anderen Adreßbereich zur 
Bildschirmspeicherung, der die 
Programmierung von Hardcopy- 
Routinen erschwert. Hinzu kommt, 
daß durch eine Taktfrequenz in der 
Nähe des Motherboardquarzes 
Störungen erzeugt werden, die 
sich als schwingende Bildränder 
bemerkbar machen. 

— In der dritten Fassung ist die 
Taktfrequenz auf 18 MHz erhöht; 
der Speicherbereich ist noch im- 
mer verlegt mit der Folge, daß in 
Pascal die Funktion „Keypress" 
nicht funktioniert, und auch Öftri- 
Z,1 geht noch nicht. 

— In der mittlerweile erhältlichen 
vierten Version sollen nun auch 
diese Nachteile behoben sein; Ge- 
naueres kann ich im Moment noch 
nicht sagen, da ich bei dem Ver- 
such, eine solche Karte zu Test- 
zwecken zu erwerben, mit drei 
Karten aus drei Quellen beliefert 
worden bin, die eine Gemeinsam- 
keit haben: Sie sind sämtlich de- 
fekt! 

Die vorangehenden Schilderungen 
zeigen, daß der 80-Zeichenkarte 
bei der Anschaffung eines Kompa- 
tiplen besondere Aufmerksamkeit 
zu widmen ist, da sie einen beson- 
ders neuralgischen Punkt darstellt. 


Disk-Drives 

Um gleich bei unliebsamen Erfah- 
rungen zu bleiben: Eine weitere 
Schwachstelle sind die Billigdrives 
älterer Bauart. Die Laufwerke des 
Typs FD 525-A von Shonan Data 
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(von der Firma Lech-Technics 
früher beim Atlas 1 eingesetzt) in 
Zusammenhang mit den alten Ei- 
genbau-Controllern dieser Firma 
machen die Spitze der Reparatu- 
ren aus (der mir zugängliche Erfah- 
rungskreis umfaßt 10 Geräte). Im 
Gegensatz dazu lassen die Geräte 
mit Shugart-Drives oder die neue- 
ren Fernost-Importe mit Zentrier- 
knebel hinsichtlich Zuverlässigkeit 
keine Wünsche offen. So hat obige 
Firma ihr Folgemodell Atlas 1 mit 
Slimlines des Typs FD-LDD 103 
von Resco ausgerüstet; dieses 
von mir getestete Gerät arbeitet 
seit vier Monaten ebenso einwand- 
frei wie der mir zugängliche Kom- 
patible Circle 100 mit Distar-Slimli- 
nes oder dessen größerer Bruder 
Nova Il mit einem TEAC- und ei- 
nem Siemens-Laufwerk, beide 
letzteren vertrieben von der Firma 
Schmitz Datentechnik in Geilenkir- 
chen. 


Netzteil 
Bei den meisten Kompatiblen, die 
heute erhältlich sind, werden Hard- 


wareverbesserungen durchge- 
führt, die über das Original hinaus- 
gehen: 


Das im Original-Apple-Il wie in äl- 
teren Nachbauten als Ofen wirken- 
de längsgeregelte Netzteil, das in 
Verbindung mit sommerlichen 
Temperaturen häufig wegen der 
gleich benachbarten 16K-Karte ei- 
ne Quelle von unerklärlichen „Un- 
regelmäßigkeiten“ darstellt (Hitze- 
stau), Ist normalerweise durch ein 
kaltes Taktnetzteil ersetzt. 


Motherboard-Änderungen 

Ein Versuch, die mechanisch anfäl- 
ligen Slots bzw. Kartenanschlüsse 
auszumerzen, wird in neueren 
Kompatiblen in der Form unter- 
nommen, daß der Z80-Prozessor 
mitsamt Zubehör und der komplet- 
te Disk-Controller sowie die 16K- 
Erweiterung mit auf das Mother- 
board übernommen werden. Da 
der Z80 den Platz der EPROMs auf 
dem Board übernimmt, werden 
diese bedauerlicherweise auf einer 
Einsteckarte in Slot O angeschlos- 
sen, was diese Lösung teilweise 
wieder aufhebt. 

Die wohl modernste Variante des 
Apple-Kompatiblen ist irgendeine 
der obigen Motherboardversionen 
mitsamt Controller in einem IBM- 
ähnlichen Gehäuse mit externer 
Speichertastatur und fest gespei- 
cherten Basic-, DOS- und CP/M- 
Befehlen (s.o. Atlas 1 und Nova |!). 
Ein so modernisierter Apple oder 


Kompatibler stellt zusammen mit 
der verfügbaren, qualitativ hoch- 
wertigen Software, insbesondere 
den Compilern zu allen gängigen 
Sprachen, eine Anlage dar, die es 
sich auch auf längere Sicht nicht zu 
ersetzen lohnt, zumal sich die Prei- 
se für eine ähnlich universelle Ver- 
besserung in schwindelnden Hö- 
hen bewegen. 


Reparatur-Service 

Zum Abschluß sei daran erinnert, 
daß ein Kompatibler auch gele- 
gentlich den Geist aufgibt, sogar 
weit öfter als das Original, wenn er 
von einem Billiganbieter mit not- 
wendig hohem Umsatz stammt, 
der keine besondere Sorgfalt auf 
eine Endkontrolle legt. Da man mit 
dem Kompatiblen nicht zum Ap- 
ple-Händler um die Ecke genen 
kann, ist es gerade hier besonders 
wichtig, den Verkäufer und Repa- 
raturdienst in nächster Nähe zu ha- 
ben, sich vor dem Kauf von seiner 
Seriosität und Zugänglichkeit zu 
den eigenen Problemen zu über- 
zeugen und so kurze Reparatur- 
zeiten sicherzustellen, damit mög- 
lichst alle auftretenden Fehler 
schon in der Gewährleistungstrist 
behoben werden, 


Versandgeschäft 

Unter den im Versandgeschäft täti- 
gen Händlern von Kompatiblen 
sind einige schwarze Schafe zu 
finden, die nach dem Motto ver- 
senden: „Ob mein Gerät noch 
Fehler hat, wird der Kunde schon 
herausfinden.“ Der hat dann aller- 
dings Mühe, bei vierwöchigen (und 
längeren) Reparaturzeiten alie 
Fehler innerhalb der ersten sechs 
Monate nach Kauf beheben zu las- 
sen. Wenn man nicht selbst betrof- 
fen ist, so ist die Lektüre der Hilfe- 
und Entrüstungsschreie in der AU- 
GE-Zeitschrift zu diesem Thema 
mitunter sehr erheiternd, für den 
Betroffenen allerdings eine teuer 
bezahlte Erfahrung. 

Die in letzter Zeit zunehmende 
Konkurrenz unter den Händlern 
von Kompatiblen wird wohl ein ent- 
sprechendes Verhalten begünsti- 
gen und das Geschäft beleben, so 
wie die Konkurrenz der Kompati- 
blen in der Vergangenheit mit dazu 
beigetragen hat, daß die Äpfel 
(-Preise) nicht in den Himmel ge- 
schossen sind, 


Redaktioneller Nachtrag 
Der obige Beitrag deckt sich nicht 
in jeder Hinsicht mit der Meinung 
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Ausgabe und 
Eingabe mi: 


TYPETERM® 
APPLE IVlle 


Das bedeutet: Computer- 


Textverarbeitung von der 
Schreibmaschinentastatur! 


CE-50mit DM 1348, 


TYPETERM inel. MWSt. 


® 
QUALITÄT AUS ERSTER HAND. 


Ein starkes Interface für starke 
Maschinen! Alle Cursor- und CTL- 
Befehle. 2k ROM auf der Karte für 
DOS, ZDOS, CP/M, Pascal. Slot 
wählbar. Alle Features: Hoch-/Tief- 
stellen, autom. Unterstreichen, var. 
Zeichen- u. Zeilenabstände, autom. 
Papiereinzug, Auto CR/LF usw. usw. 
Ausführl. Handbuch. 


TYPETERM gibt's für alle CE- u. 
EM-Maschinen ab CE-50! Bitte 
Apple II bzw. Ile angeben. 


Das gesamte Programm günstig! 
Versand NN + Porto + 6,— oder 
Vorkasse netto portofrei (Inland), 
Kto. 147 70-306 PGiroA Han. 
Handbuch TYPETERM vorab 10,- 
(Anrechnung). TYPETERM® - ein 
Produkt von 


interkom Kock & Mrachas Em 


3004 Isernhagen 
electronic lin 0s1a0- 97393 





der Peeker-Redaktion. Das Thema 
Kompatible läßt sich m. E. auf 3 
Punkte reduzieren: 


Kompatibilitätsbegriff: Der Be- 
griff der Kompatiblität ist durch die 
neueren Modelle Ile und IIc aufge- 
weicht worden, weil Apple Il Plus, 
le und Ile untereinander nicht 
mehr 100% kompatibel sind. Bei- 
spielsweise läuft der Applewriter 
Ile weder auf dem || Plus noch dem 
IIc und ist somit weder aufwärts- 
noch abwärtskompatibel. Zieht 
man Zusatzkarten in die Betrach- 
tung mit ein (z.B. 80-Zeichenkar- 
ten), so ist das Ende der Kompati- 
bilität sehr schnell erreicht. Bei- 
spielsweise läuft der Applewriter 
Ile nicht mit der Ultraterm, und in 
den IIc passen mangels Steckplät- 
zen ohnehin keine Zusatzkarten. 
Ein Apple-Kompatibler ist deshalb 
bestenfalls ein Apple-Il- oder ÄAp- 
ple-II-Plus-Kompatibler (obgleich 


67 








ich inzwischen auch einen Appie- 
He-Kompatiblen gesehen habe). 


Rechtslage: „Abkupfern“ galt 
schon immer als verpönt oder zu- 
mindest als wenig kreativ. Insofern 
werden Kompatible moralisch stets 
einen schweren Stand haben. 
Demgegenüber ist die juristische 
Situation in der Bundesrepublik 
nicht immer eindeutig, weil es zwei 
prinzipielle Typen von Kompatiblen 
gibt, nämlich erstens die „Nur- 
Kompatiblen“ als exakte Kopien 
von Gehäuse, Platine und ROMs 
sowie zweitens die „Auch-Kompa- 
tiblen“, auf denen man zwar auch 
Apple-Il-Plus-Programme laufen 
lassen kann, die jedoch zahlreiche 
zusätzliche Features aufweisen 
(z.B. Prometric). Die Nur-Kompati- 
blen sind wahrscheinlich unzuläs- 
sig, während die Auch-Kompati- 
blen insbesondere wegen abwei- 
chenden Gehäuses, neuer Platine 
und anderer ROMs wohl unstrittig 
sind. 


Preissituation: Das Original wird 
einer Kopie steis vorgezogen. 
Wohl jeder würde Butter kaufen, 
wenn die Margarine nicht billiger 
wäre. Mancher Kompatibler (aus 
der Kategorie der Nur-Kompati- 
blen) kostet nur ein Drittel oder gar 
ein Viertel dessen, was heute der 
Apple II Plus kosten würde. Wer 
einen derart preiswerten Nur- 
Kompatiblen erwirbt, darf sich nicht 
wundern, wenn erstens die Verar- 
beitung weniger gut ist und zwei- 
tens der Service teils zu Wün- 
schen übrigläßt, Irgendwo muß 
notwendigerweise gespart worden 
sein. Trotzdem bin ich felsenfest 
davon überzeugt, daß es kaum 
Nur-Kompatible geben würde, 
wenn die Preiskluft zwischen Ori- 
ginal und Nachbau nicht derart 
eklatant wäre. Hier bewahrheitet 
sich die alte Werbeweisheit „Es 
war schon immer etwas teurer, ei- 
nen besonderen Geschmack zu 
haben.” 

us 
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Hotline 


von Ulrich Stiehl 


Aufgrund der in den USA üblichen 
Gepflogenheiten von Computerfir- 
men und -clubs sowie durch Veröf- 
fentlichungen in anderen deut- 
schen Zeitschriften und nicht zu- 
letzt aufgrund eigener Testanrufe 
nahm ich irrtümlicherweise an, daß 
auch Endabnehmer (= Nicht-Wie- 
derverkäufer) die Hotline der Firma 
Apple in München schriftlich oder 
telefonisch in Anspruch nehmen 
dürften. Dies ist jedoch nicht der 
Fall, wie mir Apple-München in ei- 


nem persönlichen Gespräch mit- 


teilte, auch wenn — wie aus den 
nachfolgenden Zuschriften ersicht- 
lich ist - aus Kulanzgründen gele- 
gentlich Anfragen von Privatperso- 
nen beantwortet wurden. Insoweit 
bitte ich die Irreführung unserer 
Leser zu entschuldigen und stelle 
im Einvernehmen mit der Firma 
Apple folgendes klar: 


Endabnehmer sollten die Firma 
Apple nicht direkt anrufen, sondern 
sich vielmehr indirekt an einen der 
ca. 300 lizenzierien Händler (= 
Vertragshändler) wenden, die Über 
das ganze Bundesgebiet verteilt 
sind. Welcher Händler lizenziert 
ist, können Sie einem regelmäßig 
aktualisierten Händlerverzeichnis 
entnehmen, das beispielsweise 
am Apple-Stand auf den Compu- 
ter-Messen erhältlich ist. Die in 
einschlägigen Apple-Anzeigen 
veröffentlichte Telefonnummer 
(„Apple Aktuell“ usw.), auf die sich 
eine Vielzahl unserer Leserzu- 
schriften bezog, Ist nicht im Sinne 
einer technischen, telefonischen 
Auskunft zu verstehen. Der Aus- 
druck „irgendwelche” in dem Satz 
„Fals Sie irgendwelche Fragen 
haben, Apple Aktuell hat ein Ohr 
für Sie“ ist restriktiv im Sinne „ir- 
gendwelcher nicht-technischer“ 
und und nicht im Sinne „irgend- 
welcher technischer“ Fragen zu 
interpretieren. 


Zusammenfassend gilt also: Wenn 
Sie eine Fachfrage haben, so wen- 
den Sie sich an denjenigen Ver- 
tragshändler, bei dem Sie den Ap- 
ple kaufen wollen oder gekauft ha- 
ben. Sollte der Vertragshändler 
keine Antwort wissen, so darf er 
und nur er allein sich an die aus- 
schließlich für Händler gedachte 
Stelle von Apple-München (= 
Händler-Hotline) wenden. 

Im übrigen sollten nur solche Fra- 
gen gestellt werden, die sich auf 
Original-Apple-Hardware und 


-Software beziehen. Dies ist ver- 
ständlich, denn weder die ÄApple- 
Händler noch die Firma Apple sind 
für Fremdprodukte zuständig. Fer- 
ner muß betont werden, daß man 
keinen Rechtsanspruch auf die Be- 
antwortung von Fachfragen hat, 
Dies läßt sich schon daraus ablei- 
ten, daß Original-Appleprodukte 
meist (bzw. bei den mir vorliegen- 
den Produkten immer) mit einem 
„Ausschluß jeder Garantie und 
Haftung“ (Überschrift im Klappen- 
text) verkauft werden. So heißt es 
beispielsweise im „Benutzer- 
Handbuch“ zum Apple Ilc: „Apple 
Computer gibt keine Garantien...in 
bezug auf die in diesem Handbuch 
beschriebene Software, ihre Quali- 
tät, Durchführbarkeit, Verkäuflich- 
keit oder Verwendbarkeit für einen 
bestimmten Zweck... Das Risiko 
für die Qualität und Durchführbar- 
keit liegt ganz beim Käufer. Sollten 
sich die Programme nach ihrem 
Kauf als fehlerhaft herausstellen, 
trägt der Käufer (und nicht Apple- 
Computer, deren Distributor oder 
Einzelhändler) die gesamten Ko- 
sten für alle notwendigen Arbeiten, 
Reparaturen oder Korrekturen und 
jedwede daraus gefolgten oder 
daraus resultierenden Schäden.” 
Die Lösung technischer Probleme 
durch den Apple-Händler ist damit 
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*uwk #8 


S2FO: HS2FD 
B2FS: 

sr INVERSE 
D2F8: 

S2FA: 

S2FB: NORMAL 
Dar. 

5301: 

53083: 

5306: 

5308: 

5399: CHAR 
530A: GURSOR 


eine Frage des Wollens und nicht 
des Müssens. 


Problematischer wird es, wenn Sie 
bei einem Apple-Händler ein 
Nicht-Apple-Produkt, z.B. einen 
Erphi-Controller als Fremdhard- 
ware oder Visicalc als Fremdsoft- 
ware, erwerben. Da das Nicht-Ap- 
ple-Produkt in Verbindung mit dem 
Apple-Produkt verwendet wird, 
können auftretende technische 
Probleme an der Interaktion zwi- 
schen beiden liegen. Ein einfaches 
Beispiel: In einer anderen Redak- 
tion unseres Verlages steht ein 
Original-Apple-Il-Plus mit Original- 
Disk-Il-Drives der Firma Apple, 
aber mit einer Nicht-Original- 
Language-Card, alles zusammen 
erworben bei der Firma Süß in 
Ludwigshafen, die damals noch 
Vertragshändler war. Auf dieser 
Konfiguration läßt sich das Origi- 
nal-ProDOS nicht booten. Mit dem 
Nachbau-Patch aus Peeker 1-2, 85 
ließ sich dann ProDOS auf dem 
Original-Apple starten! In solchen 
Fällen sollte der Händler, bei dem 
Sie das Fremdprodukt erwerben, 
am besten vor dem Kauf in die 
Pflicht genommen werden, da sich 
nachträglich keiner mehr zuständig 
fühlt. Darüber hinaus beachten 
Sie, daß Fremdproduzenten gele- 


DO 

ORG 
TAY 
LDA 
EOR 
STA 
RTS 


ORG 
JMP 
FIN 


ORG 
CMP 
BNE 
LDA 
STA 
RTS 
STA 
LDA 
STA 
LDA 
EOR 
RTS 
HEX 
HEX 


Ö 
5254C 

‚Alte 
($28) ,Y ;Routine 
+580 
($28),Y 


Applewriter Ile Patch für Ilc 
a) Bei $524F Sprung zum Patch 
b) Bei $52F® Patch-Routine 


$524F 
H52FÖ 


‚Sprung zum 
‚Patch 


$52Fd 

GURSOR ;Neue 
NORMAL ‚Routine 
CHAR 

($28),Y 


CHAR 
CURSOR 
($28),Y 
CHAR 
#589 


BB 
zB ;definierbar 


Den Applewriter-IIe-Patch für den IIc bin ich Ihnen noch 
aus Peeker 3/85, 5. 35 schuldig. Während man die inversen 
Menüleisten mit einem Diskeditor ändern kann, muß die 
Cursorroutine wegen des Mauszeichensatzes umgeschrieben 
Problematisch ist lediglich, 
wo man diese Routine hinlegt. Bei $52F® ist noch Platz im 
Falle der Version OBJ.APWRTGZE, U,Stiehl 


werden, Dies ist nicht schwer, 
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gentlich echte Garantien abgeben. 
So heißt es beispielsweise in den 
„Gewährleistungs-Bedingungen“ 
der Firma Microsoft zu dem Micro- 
soft-Basic für den Macintosh: 
„.„.rür die auf der Diskette gespei- 
cherten Informationen gewährlei- 
stet Microsoft ihre Übereinstim- 
mung mit den veröffentlichten und 
bei Abnahme des Programms gül- 
tigen Programm-Spezifikationen. 
..Wird ein die Gebrauchs-Taug- 
lichkeit des Microsoft-Produktes 
im Vergleich zur jeweils gültigen 
Programm-Spezifikation bzw. Lei- 
stungsbeschreibung und Bedie- 
nungsanleitung wesentlich ein- 
schränkender Mangel innerhalb 
dieser Frist (d.h. 60 Tage nach Ein- 
gang des mangelhaften Produktes) 
nicht behoben, so kann der Käufer 
nach seiner Wahl die Herabset- 
zung des Kaufpreises oder die 
Rückerstattung des Kaufpreises 
gegen Rückgabe des mangelhaf- 
ten Microsoft-Produktes fordern.“ 
Hier ist also die Beseitigung we- 
sentlicher technischer Mängel 
nicht eine Frage der Kulanz, son- 
dern der Gewährleistungspflicht. 
Aus der Fülle der Zuschriften zum 
Thema Hotline greifen wir nur die- 
jenigen Briefe heraus, zu denen 
wir unmittelbare Problemlösungen 
anbieten können. 


Apple-lic-Dienstprogramme 

Ich möchte Ihrem Aufruf folgen 
und meine Erfahrungen mit der 
Apple-Hotline kundtun. Im Sep- 
tember des letzten Jahres habe ich 
mir einen Apple Iic zugelegt und 
fing an, mich damit zu beschäfti- 
gen. Natürlich hatte ich einige Fra- 
gen und ging damit zuerst zu mei- 
nem Applehändler: 

— Wie programmiere ich die Maus 
in Assembler? 

— Wie konfiguriere ich die seriellen 
Schnittstellen ohne Systemdienst- 
programme? 

— Wie benutze ich die Maus unter 
DOS 3.3 zusammen mit der 80- 
Zeichenkarte? 

Der Händler bekam eine Liste der 
Fragen von mir und versprach mir, 
die Antworten zu besorgen. Nach 
drei Wochen erhielt ich die Nach- 
richt, daß er bei Apple keine Ant- 
worten auf diese Fragen erhalten 
habe. Inzwischen habe ich mich 
mit den Büchern von Ulrich Stiehl 
beholfen und lasse die Maus Maus 
sein. 

Einen Tip kann ich anderen Apple- 
IIc-Besitzern noch geben: Wenn 
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man nur ein Laufwerk hat, dann 
sollte man zum Kopieren einzelner 
Files unter ProDOS den FILER und 
unter DOS 3.3 FID zusammen mit 
einem RAM-Disk-Driver benutzen. 
Die Apple-Systemdienstprogram- 
me booten aus dem ProDOS-Re- 
bootprogramm einschließlich 
PRODOS in ca. 31 Sekunden (ab 
Return). Der FILER benötigt als 
Systemprogrammm mit PRODOS 
ca. 10 Sekunden, also ein Drittel 
der Zeit. Ulrich KuBmann, Bonn 
(Anm.: Ein schnelles PRODOS- 
‚FID erscheint in einem er näch- 
sten Peeker-Hefte. Aufgrund einer 
flüchtigen Analyse kann man die 
zeitaufwendige Konfigurierung der 
Schnittstellen offenbar umgehen, 
indem man die Routinen und die 
„Screenhole"-Parameter direkt in 
den Bereich $0000-$1FFF der 
64K-Karte schiebt. Eine spezielle 
Utility istin Vorbereitung. Einstwei- 
len kann man sich mit dem Pro- 
gramm AUXMOVER der „MMU 
2.0” -Diskette behelfen. us) 


Imagewriter-Sonderzeichen 

Ein Freund von mir besitzt, genau 
wie ich, einen Imagewriter. Jetzt 
soll dieser ja (laut Handbuch) einen 
frei definierbaren Zeichensatz von 
ca. 170 Zeichen besitzen. Also 
probiert man die Steuersequenzen 
aus dem Handbuch aus und ist 
deprimiert, weil nichts läuft. Mein 
Freund erkundigte sich beim 
Händler, woran das liegt, worauf 
dieser antwortete, man könne nur 
ca. 16 Zeichen definieren. Näch- 
ster Anruf: Hotline. Antwort: Man 
weiß es auch nicht genau, aber 
irgendeine Privatfirma habe für DM 
198,- ein Programm herausge- 
bracht, mit dem man wenigstens 
96 Zeichen definieren kann. Im üb- 
rigen schickte der Hotline-Herr 
noch ein Programm für die Hires- 
Grafik des Imagewriter. Gerhard 
Schneider, Unterleinleiter 

(Anm.: Für den Imagewriter gibt es 
u.a. von der Firma Hunstig, Mün- 
ster, ein Programm zur Erzeugung 
von Sonderzeichen. Es heißt 
DMP-Charger. Die Anzahl der zu- 
lässigen Zeichen hängt vom Spei- 
cherplatz im Druckerpuffer = Zei- 
chenpuffer ab. Aufwendige Zei- 
chensätze wie z.B. der neue Frak- 
tur-Zeichensatz der Firma Hunstig 
benötigen mehr Speicherraum (1 
Frakturzeichen = 2 normale Zei- 
chen), womit dann insgesamt we- 
niger Zeichen definiert werden 
können. us) 
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RANDOM.DEMO 










180 REM Random-Zahlen-Generator 
118 REM von T,Hare, J,Russ, G.Faulkner, David Sparks 
128 REM Zitiert aus 'Call Apple', 1/1983, S. 30ff, 
138 REM Gestrafft und ab $8386 neu assembliert von 
U.stienhl 
14ß8 REM a) Zufallszahl initialisieren mit CALL 768 
158 REM b) Neue Zufallszahl mit R = USR (B) abrufen 
168 REM c) Wenn B = 1, dann R = Fließkommazahl 
im Bereich @ bis 1 
178 REM d) Wenn B > 1, dann R = Ganzzahl 
im Bereich ® bis B-l 
188 DATA 169,76,133,10,169,27,133,11,169,3 
198 DATA 133,12,169,4,185,291,9,57,198,3 
208 DATA 153,194,3,136,298,244,96,165,157,24B 
210 DATA 89,165,162,16,3,76,153,225,169,3 
228 DATA 162,203,32,43,235,162,243,14,195,3 
230 DATA 46,196,3,46,197,3,46,198,3,56 
2408 DATA 173,195,3,233,155,72,173,196, 3,233 
250 DATA 219,72,173,197,3,233,255,72,173,198 
268 DATA 3,233,3,72,144,18,194,141,198,3 
278 DATA 194,141,197,3,104,141,196,3,1d4, 141 
288 DATA 195,3,176,4,194,104,104,104, 232,288 
298 DATA 192,169,3,133,158,169,255,133,159,169 
360 DATA 219,133,169,169,155,133,161,169,9,133 
31ß DATA 162,133,179,133,171,169,129,133,165,133 
3528 DATA 157,173,198,3,133,166,173,197,3,133 
358 DATA 167,173,196,3,133,168,173,195,3,133 
340 DATA 169,32,46,232,32,15,234,173,293,3 
350 DATA 56,233,129,13,204,3,13,205,3,13 
368 DATA 266,3,298,1,96,169,3,169,263,32 
378 DATA 127,233,76,35,236,8,0,9,8.154 
58ß DATA 219,255,3,0,0,9,9,0 
398 RESTORE : FOR X = 768 TO 975: READ Y: POKE X,Y: NEXT 
ABO REM *3* Demo x*x** 

Al® CALL 768:2 = 5Adddd:B = 109: DIM RZ(B - 1): REM Z+l 
Random-Zahlen im Bereich ® bis B-1 
42ß HOME : PRINT "5BWPBB ZUFALLSZAHLEN...": 

Z:R = USR (B):RZ(R) = RZ{R) + 1: NEXT 
438 FOR X = ß TO 99:X$ = STR$ (RA(X)):L = LEN (X$): PRINT 
LEFT$ (" "5 - L):: PRINT X$;: NEXT : REM 
Prozentuale Verteilung 




































FOR X = B TO 









aAAaß PRINT : FOR X = Ö TO 99:P = R%(X) « 100 « 2 / B:P = 
INT (P):S = SEN (P):Y=P- 5 x» 189: PRINT " a 
NEXT 






459 REM Abweichung -3,74% bis +2,86% vom Mittelwert 5ß8% 
bei Sßßß00 Zahlen 







COLUMN80.DEMO 


188 REM 8®-2/Z-1Ie/IIo-VTAB-HTAB-Demo/14.903.85/U.Stiehl 

11® AH = 36:AV = 37: REM HTAV + VTAB 49 ZI, 

128 BH = 1403:BV = 1531: REM HTAB + VTAB 8 ee 

138 DIM A1%(23,79): DIM AR%{23,79) 

148 DIM B1%(23,79): DIM B2%(23,79) 

158 PRINT CHR$ (4)"PR#3": HOME 

16® REM Cursor-Position peeken 

178 FOR V = ß TO 23: FOR H = TO 79 

188 AIZ(V,H) = PEEK (AH) :A2Z(V,H) 

196 B1%{V,H) = PEEK (BH):B2Z(V,H) 

288 PRINT "'#";: NEXT H: NEXT V 

21® REM 48 Z/Z + 86 Z/Z gegenüberstellen 

228 HOME : PRINT : PRINT "'48-CH Ad-CV 
88-CV": POKE 34,2 

2508 FOR V = 6 TO 23: FERH=9 70% 

248 PRINT AIZ(V,H);: POKE BH,1®: PRINT AZZ{V,H):;: POKE 
BH,28: PRINT B1%(V,H);: POKE BH,39%: PRINT B2Z(V,H) 

258 NEXT H: PRINT : NEXT Y 

268 TEXT : HOME : PRINT : PRINT "Von unten nach oben...": 
REM Cursor-Position poken 

278 FOR V = 2A TO 1 STEP - 1: FORH = gear) IFSTEP2— 1 

288 VTAB V: POKE BH,H — 1: PRINT "x":: REM So wird's 
gemacht! 

298 NEXT H: NEXT V 

308 POKE 2839, ASC ("x") + 128: REM VTAB 24, HTAB 80 












PEEK (AV) 
PEEK (BV) 






| 







88-CH 
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Echte Zufallzahlen 

Seit der Gründung der Zeitschrift 
Peeker bin ich regelmäßiger Leser. 
Über keine andere Publikation zum 
Apple-Computer bin ich so erfreut 
wie durch Ihre. Endlich eine Com- 
puterzeitschrift, die nicht mangel- 
haftes Wissen von anderen abkup- 
tert und versucht, die Leser durch 
Basic-Müll in Rage zu versetzen, 
sondern vernünftig dokumentierte 
Assemblerlistings mit guten Be- 
schreibungen präsentiert, von de- 
nen man zu guter Letztauch etwas 
lernen kann. Ich kaufte mir dann 
das von Ihnen geschriebene Buch 
Apple Assembler, vernünftigerwei- 
se nicht zu einem Horrorpreis wie 
viele andere Fachbücher. Der In- 
halt konnte mir schon weiterhelfen, 
obwohl ich noch nicht sehr lange in 
Assembler programmiere. Aller- 
dings komme ich mit dem Fließ- 
kommaakkumulator nicht zurecht, 
was auch mein Hauptanliegen dar- 
stellt. Ich benötige für ein Maschi- 
nenprogramm Zufallszahlen; so 
suchte ich mir die RND-Routine 
bei $EFAE heraus und konnte 
nachlesen, daß die ermittelte Zu- 
fallszahl in FAC gespeichert wird. 
Nach langen Versuchen auf mei- 
nem Apple Ile konnte ich noch im- 
mer keine Zufallszahl berechnen 
und später verwenden. So rief ich 
die Apple-Hotline an, die mich nur 
mit Telefonnummern von AÄpple- 
Vertragshändlern abspeiste. Nun 
glaube ich, daß nur Sie, der Autor 
des Buches, mir die Funktionswei- 
se und Handhabung des FÄC er- 
klären kann, da ja sehr viele Routi- 
nen mit ihm arbeiten. Ich hoffe, daß 
sie mir diesbezüglich helfen kön- 
nen, und wünsche Ihnen weiterhin 
viel Erfolg mit Ihrer Zeitung. Oliver 
Mehl, Berlin 

(Anm.: Die RND-Funktion liefert 
nur Zufallszahlen für den „Haus- 
gebrauch", d.h. nach einiger Zeit 
treten immer wieder dieselben Fol- 
gen auf, In „Call A.P.P.L.E.", Heft 
1/83, S. 30ff. hat ein Mathemati- 
ker-Team einen definitiven Älgo- 
rithmus vorgestellt. Wir zitieren ne- 
benstehend diesen Algorithmus in 
einer gestrafften und leicht umge- 
schriebenen Form. Das RANDOM- 
DEMO berechnet 500.000 Zufalls- 
zahlen, die nahezu optimal verteilt 
sind. us) 


FLASH und POKE 36, HTAB 
nach PR#3 

Zu ihrer Umfrage in Peeker 3/85 
über die Benutzung der Hotline 


70 


möchte ich Ihnen mitteilen, daß ich 
diese Hotline schon in Änspruch 
genommen habe und sehr davon 
enttäuscht bin. Ich besitze seit En- 
de letzten Jahres einen Apple Ilc, 
der wie bekannt einen 40- und ei- 
nen 80-Zeichen-Modus hat. Nun 
versuchte ich Material über Ap- 
plesoft-Basic zu bekommen, was 
auch gelang. In dem Buch über 
Applesoft-Basic wird beschrieben, 
daß auf Speicheradresse 36 (dezi- 
mal} die horizontale Cursorposition 
abzufragen ist. Nun gab mein Ap- 
ple mir für jede Position auf dem 
Monitor die horizontale Cursorpo- 
sition O an. Der Händler konnte auf 
meine Anfrage nicht befriedigend 
antworten und verwies mich an die 
Apple-Hotline. Dort meldete sich 
zunächst ein automatischer Anruf- 
beantworter, der mich nach mei- 
nen Problemen und nach meiner 
Telefonnummer, zwecks Rückruf, 
fragte. Etwas später kam dann 
auch der Rückruf. Nach einigen 
Unklarheiten wußte man nun end- 
lich, was ich wollte, und nachdem 
ich ein kurzes Prüfprogramm für 
die Abfrage der horizontalen Cur- 
sorposition durchgegeben hatte, 
stellte sich heraus, daß die Spei- 
cherbelegung bei 40- und bei 80- 
Zeichen-Modus geringfügig unter- 
schiedlich ist. Wo die horizontale 
Cursorposition im 80-Zeichen-Mo- 
dus abzufragen ist, konnte mir al- 
lerdings nicht gesagt werden. 
Ebenso warum der FLASH-Befenhl 
beim Apple IIc nicht arbeitet. Man 
konnte mich nur an die AUGE-Ver- 
einigung und auf die Tatsache, daß 
die Hotline eigentlich nur für Händ- 
erfragen gedacht wäre, verweisen. 
Ulrich Kulemann, Aachen 


(Anm. zum FLASH-Problem: Die- 
ser ist beim „alternativen" Zei- 
chensatz, den man bei 80-Zei- 
chendarstellung normalerweise 
stets benutzt, zugunsten inverser 
Kleinbuchstaben nicht vorgese- 
hen. FLASH in Großbuchstaben ist 
trotzdem möglich durch folgende 
Routine: 


10 PRINT CHR$ (4) "PR#3” 

20 POKE 49166, 0: REM Aktiviert 
80-Z/Z-FLASH-Zeichensatz 
su IEOKE 50, 1277 ZBRINT 
SEiASH: 7 /BORKE 50, 2553: 

PRINT "NORMAL” 


Anm. zum HTAB-Problem: Eine 
definitive Lösung des HTAB-Pro- 
blems nach PR#3 können Sie dem 
nebenstehend abgedruckten CO- 
LUMN80.DEMO entnehmen. us) 


Leserbriefe 


Indizes und Exponenten beim 
Imagewriter 

Die DIP-Schalter-Stellung, die ich 
normalerweise beim Imagewriter 
benutze, ist sw1: -1 und -2 open, 
-3 bis -6 closed, -7 und -8 open; 
sw2: -1 und -2 closed, -3 und -4 
open. Schalter sw1 -5 wird nun bei 
abgeschaltetem Gerät in Position 
open gebracht, dann das Gerät an- 
schalten. Nun boote ich mit der 
Imagewriter-Toolkit-Diskette (wird 
beim Kauf des Geräts mitgeliefert) 
und wähle Punkt 5 des Menüpro- 
gramms aus (Download super and 
subscripts)., Der Schreibkopf im 
Imagewriter reagiert darauf mit ei- 
nem kurzen Ruck. Mit Option 6 
(Quit) verläßt man das Toolkit-Me- 
nü (es erscheint das Basic-Ü auf 
dem Bildschirm) und bootet jetzt 
mit der Applewriter-lle-Diskette 
(Imagewriter natürlich nicht ab- 
schalten, da die eingespeicherten 
Sonderzeichen sonst gelöscht 
werden). 

Aus dem Schreibprogramm kön- 
nen jetzt die Sonderzeichen über 
die Sequenz Ctri-V ESC ’ (Apo- 
stroph neben der Delete-Taste, 
ohne Shift) angesteuert werden. 
Zum normalen Zeichenfont kehrt 
man mit der Sequenz ESC $ Ctri-V 
zurück. 

Beispiel: Chemische Formel für 
Wasser: H,O. Einzutippen: „H 
Girl-V ESC "2IESC $ Ctrl-V O7 
Das ESC erscheint auf dem Bild- 
schirm als schwarzes Ä auf hellem 
Grund. Welche Tasten man drük- 
ken muß, um die kleinen Buchsta- 
ben und Ziffern zu erhalten, kann 
man im Imagewriter-Handbuch, 
Teil 2, S. 25 und 26 nachlesen. 
Das gleiche gilt auch für Exponen- 
ten. Hier muß man wirklich die Ta- 
belle im Handbuch konsultieren, 
denn die Zahlen erscheinen nicht 
als Zahlen, sondern als Zeichen, 
die man erhält, wenn man bei- 
spielsweise Shift-1, Shift-2 etc. 
drückt. Wenn die Zahlen von 1 bis 
0 z.B. als Exponenten erscheinen 
sollen, muß man I, ",#,$, %, &., ', 
(, ), $ eintippen, und so sieht das 
dann auch auf dem Bildschirm aus. 
Die oben beschriebenen Kontroll- 
sequenzen sind wieder ver- 
wendbar. 

Das Ist natürlich für einen Mathe- 
matiker das absolute Chaos, wenn 
er am Bildschirm versucht, z.B. ei- 
nen wissenschaftliichen Text mit 
vielen Formeln Korrektur zu lesen. 
Auf dem Bildschirm sieht man 


nämlich xÄ'!"#Äß/xÄ)SÄS = 
xÄ'!"# = )8Ä$ für die zu drucken- 
de Formel 


x123 7,80 = „123-390 


Man kann natürlich häufig vorkom- 
mende Sequenzen über den Kurz- 
textspeicher laden (Cirl-G und ? im 
Applewriter). Hier darf man nicht 
vergessen, auch die GCirl-V-Se- 
quenz mit einzutippen. Sie er- 
scheint im Kurztextspeicher beim 
Eintippen als inverses V (Beim Eu- 
roplus braucht man bei der Ver- 
wendung des Kurztexispeichers, 
zumindest beim englisch geschrie- 
benen Applewriter, den ich hatte, 
das Otrl-V nicht verwenden). Horst 
[beigaufts, München 


Exbasic Level Il 

Als Autor des Programms „EXBA- 
SIC LEVEL II” in den Versionen für 
Apple II+, Ile und Basis 108 möch- 
te ich im beiderseitigen Interesse 
einer sachlich korrekten Berichter- 
stattung folgende zwei Punkte zu 
ihrem Testbericht im „Peeker”, 
Heft 1-2/1985 richtigstellen: 

1. Der „PRINT AT"-Befehl arbeitet 
auch mit der 80-Zeichenkarte des 
Apple Ile uneingeschränkt, d.h. al- 
le 1920 Positionen können adres- 
siert werden (im Gegensatz zu 
„NTAB" oder Komma-Formatie- 
rung). 

2. Exbasic Level II wandelt genau- 
so wie der Applesoft-Interpreter 
bereits bei der Eingabe alle seine 
Befehle in Tokens um, die platz- 
sparend in einem Byte abgelegt 
werden. Die Tokens sind auch im 
Handbuch auf der Seite 99 und im 
Apple-Addendum auf Seite 24 
vollständig dokumentiert. Matthias 
Kapffer, Wiesbaden 


Mehr Mac 

Als erstes einmal ein Lob auf Ihre 
Zeitschrift! Sie ist gut gemacht und 
objektiv. Aber... In Ihrer Zeitschrift 
wird der Macintosh immer als 
„Schrott“ dargestellt. Gut, der Ma- 
cintosh hat große Fehler, aber was 
hilft es, wenn man immer nur sagt, 
daß das Betriebssystem schlecht 
ist, und daß der Macintosh nicht 
überzeugen kann etc. Wie wäre es 
z.B., wenn man neben aller Kritik 
auch die guten Seiten dieses 
Computers sieht und vor allem 
versucht die Fehler auszubügeln! 
Ich bin ein begeisterter Macintosh- 
User und auch mich nervt es, 
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wenn der Mac „Jahre“ zum Kopie- 
ren langer Programme oder ganzer 
Disketten braucht; auch mich nervt 
es, wenn der Mac so lange rech- 
net, scrollt etc. 

Mein Vorschlag: 

1. Baldige Fortführung des (sehr 
guten und informativen) Teils „Mi- 
crosoft Basic leicht geMACht". 

2. Ich schließe mich der Meinung 
von Herrn Herbert Schmidt an (Le- 
serbrief aus Heft 3/85) und würde 
es auch sehr begrüßen, wenn Sie, 
anschließend an Punkt 1, eine Rei- 
he über das MAC-Pascal bringen 
würden. 

3. Einführung einer „Tips- und 
Tricks-Ecke“, wo Vorschläge zur 
Verbesserung des Macs (soft- und 
hardwaremäßig) eingebracht 
werden, 

Insgesamt: Mehr Platz für den 
MAC in Ihrer Zeitschrift damit sei- 
ne fatalen Fehler radikal ausge- 
merzt werden! Sassan Tat, Düs- 
seldorf 

(Anm.: Im Augenblick ist noch 
nicht entschieden, ob im Anschluß 
an die Basic-Serie mit einer Mac- 
Pascal- oder 68000-Assembler- 
Serie begonnen wird. Peeker-Le- 
ser werden gebeten, uns Ihre Prä- 
ferenzen mitzuteilen. us) 


Mehr Apple lic 


Als ich vor kurzem von einem Be- 
kannten auf Ihre Zeitschrift auf- 
merksam gemacht wurde, habe ich 
mit Freude registriert, daß sie ei- 
nen guten Mittelkurs zwischen all- 
gemeinem Salonblatt und techni- 
scher Zeitschrift steuert und sich 
weitgehend dem großen Bereich 





der Apple-Il-Rechner widmet. In 
diesem Zusammenhang darf ich 
erwähnen, daß ich eine Berichter- 
stattung Über Entwicklungen, die 
speziell den Apple Ilc betreffen, 
sehr begrüßen würde. Meiner Ent- 
scheidung, einen Apple Ilc zu kau- 
fen, war eine Güterabwägung vor- 
ausgegangen: Soll ich das offene 
System des Ile oder das kompakte 
System des Ile vorziehen? 
schließlich überwog, wenn auch 
nur knapp, die Überlegung der 
Tragbarkeit des Apple |lc. Aus mei- 
nem unmittelbaren Bekanntenkreis 
weiß ich auch von etlichen weite- 
ren Fällen, wo einer einen Apple IIc 
wegen der Möglichkeit, ihn an zwei 
Stellen (z.B. am Arbeitsplatz und 
zu Hause) zu benutzen, gekauft 
hat. Meine Bitte an die Redaktion 
des „Peeker“ wäre dann die, daß 
man, auch bei dem augenschein- 
lich geschlossenen System des 
IIc, nach Hardware-Entwicklungen 
(z.B. dem Anschluß einer Festplat- 
te oder einer Accelerator-Karte) 
Ausschau hält, die die immer grö- 
Ber werdende Gruppe der Apple- 
IIc-Besitzer interessieren würden. 
Dr. Raymond Hickey, Bonn 

(Anm.: Nach unseren Kenntnissen 
scheint man an einer Accelerator- 
Karte für den Ilc noch nicht zu ar- 
beiten, Andere und größere Lauf- 
werke ‘für den Ilc gibt es jedoch 
bereits, desgleichen Adapter, die 
die üblichen Ille-Disk-Controller er- 
setzen. Softwaremäßig unterschei- 
det sich der IIc vom Ile nur in Fein- 
heiten. So laufen beispielsweise 
fast alle Peeker-Programme auch 
auf dem IIc. Eine entsprechende 
Aufstellung der abweichenden Mo- 
nitorroutinen wird in Kürze im 
Peeker veröffentlicht. us) 


| 
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Slim-Line-Laufwerk von Chinon 


In die Reihe der Slim-Line-Lauf- 
werke gesellt sich nun auch ein 
Imporigerät, das sich unter ande- 
rem durch einen recht günstigen 
Preis von ca. DM 500,- aus- 
zeichnet. 

Das von der Firma D.O.S. in 
Schwäbisch-Hall importierte Chi- 
non-Laufwerk, das an den Apple- 
Controller angeschlossen werden 
kann, besitzt einen direkt angetrie- 
benen Disk-Teller in einem Alu- 


druckgußB-Chassis, wobei im Ge- 
gensatz zur Disk || 40 Spuren be- 
arbeitet werden können. Laut Her- 
stellerangaben ist auch der Halb- 
spurbetrieb möglich. 

Die Zentrierung der Diskette er- 
folgt beim Schließen des Lauf- 
werks durch einen anfänglich et- 
was gewöhnungsbedürftigen 
Schnappverschluß, der während 
des Tests jedoch keine nachteili- 
gen Erscheinungen zeigte. Die 


D. w. 





Druckerumschaltung per Knopfdruck 


Häufig werden an einem Computer 
ein Matrix- und ein Schönschreib- 
drucker bzw. eine Schreibmaschi- 
ne betrieben. Beim Apple II läßt 
sich dieses Problem mit Hilfe zwei- 
er Interfacekarten lösen. Sollen 
zwei Computer denselben Drucker 
teilen, so ist dies nur durch Um- 
stecken der Anschlüsse erreich- 
bar. Abhilfe schafft hier ein „Printer 
Interface Selector", der den An- 
schluß von zwei Computern und 
zwei Druckern ermöglicht. Durch 
einfaches Umschalten können so- 
mit beide Computer beide Drucker 
benutzen. 

Die Firma Radio Shack vertreibt in 
den USA ein solches Gerät, mit 


dessen Hilfe zwei Paralleischnitt- 

stellen geschaltet werden können 

und das folgende Kombinationen 

unterstützt: 

— zwei Computer an 
Drucker 

— ein Computer an zwei Druckern 

— zwei Computer an zwei Druk- 
kern. 

Das Gerät, das in den USA 

$119.95 kostet, wird mit einem für 

Deutschland nicht verwendbaren 

120V-Netzteil ausgeliefert, das je- 

doch durch ein Netzteil mit 15V 

Ausgangsspannung ersetzt wer- 

den kann. 

Eine deutsche Bezugsquelle ist 

derzeit nicht bekannt. 


einem 
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Laufgeräusche des Disk-Tellers 
und der Schreib/Lesekopf-Mecha- 
nik erwecken einen vertrauens- 
würdigen Eindruck. 

Eine erhöhte Zugriffszeit gegen- 
über der Disk II konnte im Test 
nicht ermittelt werden, vielmehr 
war die benötigte Zeit zur Abspei- 
cherung mehrerer Binär-Files um 
ca. 5% länger als beim Apple- 
Laufwerk (die benutzte Diskette 


wurde auf dem Chinon-Laufwerk 
formatiert). 

Da kein Dauertest durchgeführt 
wurde, kann nichts über die langfri- 
stige Zuverlässigkeit dieses Lauf- 
werks ausgesagt werden. Der ins- 
gesamt robuste Eindruck läßt je- 
doch darauf schließen, daß bei 
dem vorliegenden Gerät das Preis/ 
Leistungs-Verhältnis ausgewogen 
ist. 





The Last Disk-Utility 


Ein umfangreicher Disketten- 
editor 


getestet von H. Grumser 


Die rege Benutzung von Disketten 
als Massenspeicher erfordert im- 
mer wieder die Bearbeitung einzel- 
ner Sektoren, sei es, um die Daten 
von teilweise beschädigten Disket- 
ten zu retten oder Änderungen 
vorzunehmen, die das Betriebssy- 
stem nicht unterstützt. Zu diesem 
Zweck bietet die Firma FOCUS 
Computer GmbH eine umfangrei- 
che Sammlung von Disketten- 
Hilfsprogrammen an, die sowohl 
auf Sektorebene als auch auf der 
Ebene der systemspezifischen 
Diskettenorganisation eine um- 
fangreiche Bearbeitung gestatten. 
Dieses unter dem Namen T.L.D.U. 
zusammengefaßte Programm un- 
terstützt die Betriebssysteme DOS 
3.3, UCSD, CP/M sowie ProDOS. 
Zur Bearbeitung einzelner Sekto- 
ren stellt die T.L.D.U. 10 (bzw. 16, 
s.u.) Editierpuffer zur Verfügung, 
die beliebig gelesen oder ge- 
schrieben werden können. Der 
hierfür eingebaute Editor ermög- 
licht das Überschreiben, Einsetzen 
und Löschen einzelner Bytes im 
ASCII- und Hex-Modus; die An- 
zeige erfolgt wahlweise im ASCII-, 
hexadezimalen oder gemischten 
Format, wobei auch die Möglich- 
keit der (nicht editierfähigen) Aus- 
gabe als Disassembler-, Basic- 
oder Textlisting besteht. 

Auf höherer Ebene können Direc- 
tories, Dateien und bei DOS 3.3 
die VTOC ohne die exakten Kennt- 
nisse der Diskettenorganisation 
bearbeitet werden. Hier empfiehlt 
sich jedoch in jedem Fall die Lektü- 
re der einschlägigen Literatur vor 
der Verwendung dieser Komman- 
dos (s.u.). Als besonders hilfreich 
erweist sich in diesem Zusammen- 
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hang der automatische Abgleich 
der VTOC mit den TSL-Sektoren 
und die Freigabe noch belegter 
Sektoren, die bei der Kürzung von 
Dateien entstehen. 
Eine weitere nützliche Einrichtung 
ist die Möglichkeit, Bytefolgen oder 
Strings auf der Diskette zu suchen 
(auch sektorüberlappend), um sich 
z.B. auf einer beschädigten Disket- 
te zurechtzufinden (die Suche 
nach TSL-Sektoren existiert als 
spezieller Befehl). 
Der eindrucksvollste Teil der 
T.L.D.U. ist ohne Zweifel die Im- 
plementierung einer Macro-Spra- 
che, die unter anderem die Auto- 
matisierung häufig benötigter Be- 
tehlsfolgen gestattet. Mit Hilfe ei- 
nes Editors können Macros defi- 
niert und im Kommando-Modus je- 
derzeit ausgeführt werden. Die 
Sprache umfaßt, außer Variablen, 
Schleifen, der Möglichkeit der IF- 
THEN-ELSE-Programmierung und 
dem Aufruf von „Untermacros”, 
auch eine Fülle nützlicher Anwei- 
sungen (die nur zum Teil denen 
des Kommando-Modus entspre- 
chen), mit deren Hilfe die umfang- 
reiche Bearbeitung von Disketten 
möglich wird, die ansonsten nur 
durch aufwendige System-Pro- 
gramme realisierbar wäre. Bei der 
Benutzung von Macros stehen 16 
Puffer zur Verfügung, So können 
Macros z.B. zum 
— Erstellen DOS-loser Datendis- 
Ketten, 
— Modifizieren des Catalogs, 
— „UNDELETEn“" gelöschter Da- 
teien, 
— Kopieren zwischen verschiede- 
nen Betriebssystemen 
und zur Lösung vieler anderer Auf- 
gaben eingesetzt werden. 
Die Syntax der Sprache ist leicht 
verständlich, so daß bereits nach 
kurzer Einarbeitungszeit die ersten 


selbsigeschriebenen Programme 
die Sammlung der mitgelieferten 
Macros erweitern können. Äbge- 
sehen von einer etwas dürftig aus- 
gefallenen Benutzerschnitistelle 
während der Abarbeitung von Ma- 
cros läßt die Sprache keine Wün- 
sche offen. 

Der Aufruf der Befehle erfolgt 
durch Eingabe eines Buchstabens 
oder Citrl-Zeichens, wobei bei 
manchen Kommandos ein zweites 
Zeichen und gegebenenfalls eine 
Name folgen muß. Trotz dieser 
baumartigen Einteilung ist der Zu- 
gang zu den einzelnen Komman- 
dos zum Teil etwas unzulänglich, 
zumal das einzugebende Zeichen 
und der entsprechende Befehl 
nicht immer mnemonisch zueinan- 
derpassen. Der sehr umfangreiche 
Befehlssatz bereitet in diesem Zu- 
sammenhang anfängliche Schwie- 
rigkeiten, was jedoch kein Problem 
einer schlechten Benuizerführung 
ist. 

Zur Orientierung kann für die über- 
geordneten Kommandos ein Hilfs- 
fenster eingeblendet werden (beim 
Apple II Plus nur mit 16K-Erweite- 
rung), das eine kurze Zusammen- 
fassung der Befehle enthält, das 
Handbuch jedoch nicht ersetzen 
Kann. 

Das über 100 Seiten umfassende 
DIN-A5-Handbuch {Ringbuch, fo- 
tokopierter Schönschreibdrucker- 
Printout) ist übersichtlich geglie- 
dert. Die Befehle, speziell die Ma- 
cro-Befehle, werden zum Teil sehr 


kurz behandelt, so daß auf das alt- 
bewährte Trial-and-error-Verfah- 
ren zurückgegriffen werden muß. 
Eine zügige Einarbeitung ist den- 
noch möglich. Das Handbuch ver- 
mittelt keine Kenntnisse in der Or- 
ganisation der Disketten unter den 
verschiedenen Betriebssystemen, 
sondern verweist unter anderem 
auf das Buch „ProDOS für Aufstei- 
ger" von Ulrich Stiehl. Das bisher 
leider fehlende Register, mit einer 
Übersicht aller Befehle, soll laut 
Angaben der Firma bald er- 
scheinen. 

Vor dem Starten der T.L.D.U. muß 
eine DOS-3.3-Diskette gebootet 
werden. Obwohl nur die RWTS be- 
nutzt wird, bleibt das DOS erhal- 
ten, kann jedoch wahlweise durch 
die Einrichtung weiterer Puffer 
überschrieben werden. Die Verar- 
beitung von Disketten mit höherer 
Spurenzahl (bis 160) wird unter- 
stützt, Da alle Schreib/Lese-Be- 
fehle mit Hilfe der RWTS ausge- 
führt werden, beschränkt sich der 
Zugriff auf das Standardformat. Als 
Option lassen sich jedoch Header- 
und Trailerbytes ändern und die 
Checksum-Routinen lahmlegen. 
Mit der T,L.D.U. erhält der Käufer 
ein umfangreiches Werkzeug zur 
Bearbeitung von Disketten, das 
trotz kleiner Unebenheiten kaum 
Wünsche übrigläßt. Für all jene, die 
Disketten öfters byteweise bear- 
beiten müssen, Ist die Ausgabe 
von DM 99.- in jedem Fall empfen- 
lenswert. 





Tabelle der Interpreter- und 


Monitor-Adressen 


Die nachfolgende doppelte Tabelle 
enthält alle Applesoft-Interpreter-Ein- 
sprungstellen ($D000-$F7FF) des 
Apple Il Plus sowie alle Monitor-Ein- 
sprungstellen ($F800-$FFFF) des 
Apple II in numerischer, d.h. nach 
Adressen, und alphabetischer, d.h. 
nach Labels, sortierter Reihenfolge. 
Die Monitor-Labelnamen gehen noch 
auf Steve Wozniak zurück, während 
die Interpreter-Labelnamen auf der 
Nomenklatur der Zeitschrift „Gall 
A.P.P.L.E.“ sowie auf dem Interpre- 
ter-Quellcode von Prof. Glen E. Bre- 
don basieren. Peeker-Autoren wird 
empfohlen, die Labelnamen zu über- 
nehmen, um eine einheitliche Termi- 
nologie zu gewährleisten. Vergleichs- 


tabellen für den Monitor von Apple || 
Plus, Ile und Ilc sowie Ergänzungen 
zu dem nur beim Äpple Ilc geringfü- 
gig abweichenden Applesoft-Inter- 
preter werden veröffentlicht, wenn die 
neuen ROMs für den Ile erschienen 
sind {wahrscheinlich im Sommer). 
Tabellen in der hier vorgestellten Art 
dienen nur als „Quick-Reference" für 
diejenigen, die bereits wissen, was 
sich hinter den Namen versteckt, Ne- 
ben diesen nackten Adreß-Label-Ta- 
bellen werden wir deshalb eine Aus- 
wahl der wichtigsten Labels nach 
Sachgruppen zusammenfassen und 
anhand von Miniprogrammen erläu- 
tern. 

U, Stiehl 
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SB008 = 
sop0B = 
$opgl = 
$0003 = 


$oBBA = 


$ö0pD = 
$ödBE = 
$BDpF = 
$AdgrF = 


$op10 = 
$öB11 = 


$0013 = 
$ß013 = 
$0014 = 
$pB15 = 


$öpl6 = 


$ößl6& = 
$B01A = 
$ßß1B = 
$öBIC = 
$pd1D = 
$öd20 = 
$0g21 = 
50922 = 
$9923 = 
$0024 = 


$0925 = 


$9026 = 
30627 = 
$9828 = 
$B929 = 
$PB2A = 


$O02B = 


$082C = 
$0B2C = 
SpB2C = 
$BD2D = 
$oB2D = 


$öß2D = 


$oB2E = 
$öB2E = 
$ÖBZE = 
$OBZF = 
$Bß2F = 


$Aß2F = 


$0039 = 
soB3B = 
$pp31l = 
$9932 = 


$2033 = 
$0934 = 


$0035 = 
$Rd36 = 
$8037 = 
$0038 = 


$9939 = 
$BDSA = 


$öBSB = 
$öB5C = 
$DBSC = 
SOBSC = 


$003D = 
$RBSE = 
$OBSF = 


$öp40 = 
$9ß41l = 
$0042 = 


H0043 = 
50944 = 
$0045 = 


90045 = 
$0946 = 


59947 = 
$0948 = 
30049 = 
$PB4E = 


$ödar = 
$odsd = 


$9959 = 
| $BB5l = 
$9052 = 
$PB52 = 


99053 = 
58055 = 
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GOWARM 
LOCO 
LOC1 
GOSTROUT 
USR 
CHARAC 
ENDCHR 
NUMDIM 
PNTR 
DIMFLG 
VALTYP 
DATAFLG 
GARFLG 
SUBFLG 
INPUTFLG 
UPRMASK 
SIGNFLG 
SHAPEL 
SHAPEH 
HCOLOR1 
COUNTH 
WNDLFT 
WNDWDTH 
WNDTOP 
WNDBTM 
CH 

CV 
GBASL 
GBASH 
BASL 
BASH 
BAS2L 
BASZH 
H2 
LMNEM 
RTNL 
RMNEM 
RTNH 
v2 
CHKSUM 
FORMAT 
MASK 
LASTIN 
LENGTH 
SIGN 
COLOR 
HMASK 
MODE 
INVFLG 
PROMPT 
YSAV 
YSAVıl 
CSWL 
CSWH 
KSWL 
KSWH 
PCL 
PCH 
ALL 
xaQT 
AQTNZ 
AIH 
A2L 
A2H 
ASL 
ASH 
AAL 
AAH 
ASL 
ASH 
Acc 
XREG 
YREG 
STATUS 
SPNT 
RNDL 
RNDH 
ACL 
LINNUM 
ACH 
TEMPPT 
XTNDL 
LASTPT 
XTNDH 


59054 
$6955 
$9055 
$905E 
saB6p 
50062 
$0067 
$BB69 
$AB6B 
$Rd6D 
$ödsr 
8971 
$0073 
$6875 
35077 
$8979 
$097B 
$097D 
$A07F 
södsl 
0083 
50085 
$2987 
9087 
50089 
SOH8BA 
SOBSA 
sABsc 
$ödsrF 
$A09B 
$d8891 
59992 
$2893 
58994 
90094 
$#895 
$9896 
0098 
$BB99 
$2099 
$009A 
$89B 
$009B 
$RBSC 
$öB9D 
$öBsD 
$ogAD 
SBBA2 
SOBAS 
$pBA4A 
$ßBA5 
$OBAA 
$OBAB 
SBBAB 
SABAC 
$BBAD 
$OBAD 
$öBArF 
$osBl 
$08B7 
$PdB8 
$BBc9 
$öBDd 
$AnD1 
$B8D2 
$O0D3 
$R9DA 
$88D5 
$B8D6E 
$BHD8 
$OODA 
SBBDC 
$PßDE 
$oADF 
$B0dE® 
$OdElL 
$öBE2 
$ödE4 
$00E5 
SÖBES 
$BBET 
SODES 
$OBEA 
$öör® 


AUXL 
AUXH 
TEMPST 
INDEX 
DEST 
RESULT 
TXTTAB 
VARTAB 
ARYTAB 
STREND 
FRETOP 
FRESPC 
MEMSIZ 
CURLIN 
OLDLIN 
OLDTEXT 
DATLIN 
DATPTR 
INPTR 
VARNAM 
VARPNT 
FORPNT 
LASTOP 
TAPSV 
GERTrTP 
FNCNAM 
TEMP3 
DSCPTR 
DSCLEN 
JMPADRS 
LENGTH 
EXTRASV 
TEMP1 
ARYPNT 
HIGHDS 
PICK 
HIGHTR 
TEMP2 
INDX 
TMPEXP 
EXPON 
DPFLG 
LOWTR 
EXPSGN 
DSCTMP 
FAC 
VPNT 
FACSGN 
SERLEN 
FPGEN 
ARG 
ARGSGN 
SGNCPR 
STRNGI 
EXTRAFAC 
SERPNT 
STRNG2Z 
PRGEND 
CHRGET 
CHRGOT 
TXTPTR 
RNDSEED 
DXL 
DXH 

DY 
ODRNT 
EL 

EH 
LOCK 
ERRFLG 
ERRLIN 
ERRPOS 
ERRNUM 
ERRSTK 
XPL 
XÖH 

Y9 
HCOLORZ 
HNDX 
HPAG 
SCALEZ 
SHAPEPNT 
COLCOUNT 
FIRST 
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$ödFl = SPEEDZ = NEWLN? = ERFLG? = DOREENT 
SOößF2 = TRCFLG $DADl = MVPRG $D86C = CTRC? $DBA® = GET 
$OÖF3 = ORMASK $DAEA = INSRTLIN $DS6E = STOP $DBB2 = INPUT 
$ö0F4 = TXTPSYV $DAF2 = LINKSET $D876 = END $DBCA = QOUT 
$O0F6 = CURLSV $DAFE = NXLINK $D871 = END2 $DBC7 = DIR? 
SOÖF8 = REMSTK $D5ßF = PUTLINK $D888 = END3 $DBDC = NXIN 
$B0F9 = ROTZ $D5l11 = FINDEOL $D88A = ENDA $DBE2 = READ 
$A180 = STACK $D52C = INLIN $D893 = GOSTART $DBES = ZF 
$0200 = IN $D52E = INLIN2 $D896 = CONT $DBEB = MAININP 
$63F5 = AMPER $D539 = GDBUFS $D8Al = CON $DBFl = NXINP 
$03F8 = USRADR $D541 = STRIP $D8AF = RET6 $DClF = SNDQ? 
$O3FB = NMI $D5AC = NOI $D8BBß = SAVE $DC27 = STXP 
$Ö3FE = IRQLOC $0D553 = INCHR $D8C9 = LOAD $DC2B = INSTART 
$Cdöß = IOADR $D559 = GETIN $DSED = JLNK $DC3F = PUTCHR 
$cAdd = KBD $D56C = PARSE $DSF$ = VARTIO $DCAB = PENCHR 
$cödd = KEY $D56D = NXCHR $D981 = PROGIO $DCAC = PECHR 
$cö1® = KBDSTRB $D578 = SE $D912 = RUN $DC57 = SKP 
$c#28 = TAPEOUT $D588 = TOK? $D91B = RUNLINE $DC63 = NUMIN 
$C95ß = SPKR $D598 = ISTOK? $D921 = GOSUB $DC69 = DATIN | 
$cö5@ = TXTCLR $D5A2 = NY $D935 = GOLINE $DCT2 = WNX N 
$C051 = TXTSET $D5A7T = NX $DI3E = GOTO $DCTE = SWPNT 
$C952 = MIXCLR $D5AS = LIN $D955 = GOl $DC99 = INPFIN 
$c853 = MIXSET $D5CB = PUTTOK $D959 = GO2 SDCAB = FINDATA 
$c054 = LOWSCR $D5CD = PUTIN $D96A = RET7 $DCB9 = NXS 
$c655 = HISCR $D5Eß = SSF $D96B = POP $DCCc6 = INPDONE 
$Cd56 = LORES $D5E2 = REM? $D97C = UNDERR $DCD1 = NTD 
$C057 = HIRES $D5E9 = SHFTIN $D981 = GSYNER $DCDE = RETI1 
$cö6d = TAPEIN $D5F2 = SHIN $D984 = RETURN $DCDF = EXIG 
$cd64 = PADDLE $D5F9 = SKIPTOK $D995 = DATA $DCEF = REENT 
$c078 = PTRIG $D5FD = SK2 $D998 = ADDON $DCF9 = NEXT 
$DPBB = CMDTABL $D6ß4 = PLU? $D9A2 = RETS $DCFF = VARNXT 
$Dds® = UNFNC $D61d = DONE $DY9AZ = DATAN $DD62 = SKPYV 
$DÖB2 = MATHTBL $D61A = FNDLIN $D9A6 = REMN $DDED = GERR 
$DßC7 = MINUS $D61E = FL1 $DSAE = RMl $DDöF = GOTFOR 
$DaCA = EQUAL $D635 = FL2 $D9B6 = RM2 $DD52 = GONEWST 
$DÖCD = PLUS $D63E = GETLINK $D3C5 = PULL3 $DD55 = ENDFOR 
$DdD® = TOKTABL $D647 = NOSUCH $D3C9 = IF $DD67 = FRMNUM 
$D268 = ERRMSG $D648 = RET3 $DI9D8 = TRUE? $DD6A = CHKNUM 
$D268 = NXwoFOR $D649 = NEW $D9DC = REM $DD6C = CHKSTR 
$D27® = SYNTXERR $D64B = SCRTCH $D9El = IFTRUE $DD6D = CHKYAL 
$D276 = RTNwoGSB $D665 = SETPTRS $D9EI = JGOCMD $DD73 = RETI2 
$D28A = OofDATA $DS6A = CLEAR $DIEC = ONGOTO $DD74 = CV2 
$D295 = ILLQUAN $D66C = CLEARC $DIFA = GOTO? $DD76 = MISMTCH 
$D2A5 = OVFLOW $D683 = STKINI $DISF8 = ONCNT $DD78 = JERROR 
$DZAD = OofMEM $D696 = RET4 $DAGß® = NXNUM $DD7B = FRMEVL 
$D2BA = UNDSTAT $D697 = STXTPT $DAßB = RETY $DD86 = FEVLOOP 
$D2CB = BADSUBS $D6A5 = LIST $DABC = LINGET $DD95 = FRMEVL2 
$D2D8 = REdimARR $D6EBl = STRTRNG $DAL2 = ASCHEX $DD98 = CPROP 
$D2E5S = DIVbyZRO $D6CA = ENDRNG $DA4B = NXDIG $DDB4 = CHKTYP 
$D2F5 = ILLDIR $DSCC = MAINLST $DA46 = LET $DDC5 = ARITH 
$D303 = TYPEMISS $D6DA = NXLST $DA63 = LET2 $DDCD = PREFTEST 
$D31ß = STRtOLNG $D6EF5 = LSTD? $DA77 = LETREAL $DDDE = NXOP 
$D31F = FORMtOCX $D6F7 = LSTILIN $DATA = LETSTR $DDD7 = SAVOP 
$D332 = CANTCON $D6EFE = LISTLOOP $DA7B = PUTSTR $DDE4 = COMPARE 
$D34ß = UNDFUNC $D7®2 = SENDCHR $DASC = DESC? $DDEE = ND 
$D359 = ERRIN $D712 = NCR $DAYA = COPSTR $DDF6 = PREFNC 
$D358 = INMSG $D724 = LISTED $DAAl = NEWDESC $DDFD = PSHMAD 
$D35D = BREAKIN $D72C = GETCHR $DAB7 = COPY $DE®D = SNTXERR 
$D365 = GTFORPNT $D731 = GC $DACF = PRSTRING $DEl® = PSHF 
$D36A = FNDFOR $D734 = TOKEN? $DADS = PRINT $DE1lS = PSHFACX 
$D37F = SAMEFOR? $D746 = SKPTK $DAD7 = PRINT2 $DE2® = PUSHFAC 
$D38B = NXFOR $D749 = TOKLP $DAFB = CRDO $DE35 = NOTMATH 
$D392 = RETI $D75® = PRTOK $pBßß = NEGATE $DE38 = GOEX 
$D393 = BLTU $D755 = TOKLUP $DBß2 = RETIQ $DE3A = DOMTH 
$D39A = BLTU2 $D75F = TOKDONE $DBß3 = TAB $DE41 = DMTH 
$D3B7 = SETEND $D766 = FOR $DBöE = NXCLM $DEA3 = DOMATH 
$D3C3 = MVBYT $D777 = FOR2 $DB16 = TABWHERE $DESD = EXIT 
$D3C7 = NXBYT $D7AF = STEP $DB21 = SPC? $DE6Sß = GETVAL 
$DSCE = NXPAG $D7C3 = ONESTEP $DB2B = TABIT $DES4 = SKIP 
$D3D& = CHKMEM $D7D2 = NEWSTT $DB2C = NXSPC $DES9 = NUMBER 
$D5E3 = REASON $D7ES = DIRCT $DB2F = NEXTCHR $DESC = VAR? 
$D3ED = RS1 $D865 = TRACE? $DB35 = DOSPC $DESl = STRTXT 
$D3Fl = RS2 $D81D = TRI $DB3A = STROUT $DESA = STL 
$D3FC = RS3 $D826 = GOEND $DB3D = STRPRT $DESß = NOT? 
$D46F = RET2 $D828 = GOCMD $DB44 = NXCHAR $DEIB = EQUOP 
$DA1d = MEMERR $DB2A = GOCMD2 $DB57 = OUTSP $DESF = NOTZ 
$DA1l2 = ERROR $D83F = NOTOK $DB5A = OUTQUES $DEAA = FN? 
$D419 = DOERRMSG $D842 = COLON? $DB5C = OUTDO $DEAB = SGN? 
$DAlF = ERLUP | $D846 = JSY $DB64 = SEND $DEB2 = PARCHK 
$D4A31 = PRNTIN? | $D849 = RESTORE $DB71 = INPUTERR $DEBS = CHKCLS 
$D43C = RESTART $D853 = SETDA $DB7B = READERR $DEBB = CHKOPN 
$D45C = NXLIN $D857 = RET5 $DB7F = ERLIN $DEBE = CHKCOM 
$DA9F = NL1 $D858 = ISCNTC $DB85 = INPERR $DEC® = SYNCHR 
= MVDWN CK $DB87 = RESPERR $DEC9 = SYNERR 
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$DECE = 


$DEDS 
$DED5 
$DEES 
$DEFS 
$DEF9 
$DFOC 
$DF3A 
$DFSF 
$DFAF 
$DF55 
$DF5D 
$DFSß 
$DF65 
SDF7D 
$DFA5 
$DFAA 
SDFB® 
SDFBS 
$DFC1 
$DFCA 
SDFCBD 
$DFD6& 
$DFD9 
SDFE3 
$DFEB 
$DFEA 
$SDFFA 
$DFF7 
$EBBB 
$EßB3 
$EßBT 
$EBIN1 
$Eß12 
$EBIC 
$Eß26 
$Eß36 
$EBSD 
$EB4E 
$EB49 
$EBAF 
$E959 
$EßSB 
$EB65 
$E973 
$ENTD 
$EB86 
$E987 
$EBIA 
$EBSC 
$EBB2 
$EÖDE 
$EBES 
$ESED 
$EÖEF 
SEÖFY 
$EÖFE 
$E192 
$EL1ß8 
SELBC 
$E119 
$E11B 
$ElIE 
$El2C 
$E169 
$E1l6D 
$E179 
$E188 
$E196 
$E199 
$EI19B 
$EIlSE 
$ElAA 
$E1lB8 
$EICI 
$E1D5 
$ElDE 
$ElE7 
$EIF7 
SERI1A 
$E229 
$E22E 
$E2AB 
$E253 
$E269 
$E26C 
$E2ZSF 


MIN 
EQUL 
VARL 
VRl 

YR2 
SCREEN 
UNARY 
NOTinstr 
GOROUT 
OR 

AND 
FALSE 
TRUE 
FOSOP 
STRCMP 
SFS 
CMPLOOP 
NUMCMP 
DOCMP 
CMPDONE 
JF 

PDE 
NXDIM 
DIM 
PTRGET 
PTRGET2 
PTRGETS3 
BADNAM 
NAMOK 
BASIC 
BASIC2 
MORNAM 
GTLT 
BYPASS 
STRNG? 
INTYAR? 
NIN 
SCDCH 
JARY 
BSB 
VSEARCH 
NAVAR 
NVvıl 

NV2 
NXPTR 
TSbELG 
RTN1 
NOTFND 
TWOBRK 
NEWVAR 
NWV 
SETVPNT 
SyE 
GETARY 
GETARY2 
GD 
NEGNUM 
MAKINT 
MKINT 
AYINT 
Mil 

MI2 
ARRAY 
NXTDIM 
FNDARY 
ARYLOOP 
ARYNAM? 
NXARY 
SUBERR 
IQERR 
JER 
ARYFOUND 
CHKDIM 
NOTFOUND 
MAKARY 
NINT 
RAR 
SAVDIM 
DFLTDIM 
ZARY 
ZLUP 
NXPG 
FNDELEM 
DIMLUP 
GSE 

GME 
DIMOK 


52279 
$E281 
$E292 
$E298 
$EZAC 
$E2AD 
$E2BS 
$E2CH 
$E2D9 
$E2DE 
$E2RES 
$E2F2 
$E2FF 
$E3GL 
$E306 
$E30E 
$E313 
$E34] 
$E354 
$E378 
$EZAY 
$ESAF 
$E3C5 
$E3D5 
$E3DD 
$ESET 
$E3ED 
$E3F7 
$E494 
$EAB8 
GEAB9 
$E415 
$EALF 
$EAZA 
$E432 
$E435 
$E452 
$E454 
$E45F 
$E469 
$E474 
$E484 
$E488 
$EAAQ 
GEAAY 
$EAB5 
$EABD 
$EAC2 
SEACA 
$EACE 
$E4D9 
SESBC 
$E5S14 
$E519 
$E523 
$E538 
$E542 
$E552 
$E5S5D 
$ES62 
$E597 
$ESB7 
$ESDA 
$ESE2 
$E5ES6 
$ESEA 
$EBF3 
$ESFD 
$ESPBY 
$E694 
$E630 
$E635 
$E645 
$E646 
$ESBA 
$ESEO 
$E666 
$E667 
$E668 
$E67F 
$E6B6 
$ESS1 
$ESA2 
$E6B9 
$E6D6 
$ESDC 


$EGEB = 


DIMOK2 
NXDM 
NINTA 
RARY 
RTN2 
MULT 
MUl 
MU2 
MU3 
FRE 
FRE2 
GIVAYF 
POS 
SNGFLT 
ERRDIR 
UNDFNC 
DEF 
FNG? 
FUNCT 
SAVOLD 
GETOLD 
FNCDATA 
STR 
STRINI 
STRSPA 
STRLIT 
STRLT2 
FEND 
Quo? 
ZEND 
NZ 

FEL 
FE2 
PUTNEW 
JERR 
PUTEMP 
GETSPA 
GETSPC 
cY 
GOTSPA 
FULL 
GARBAG 
FNDVAR 
TVAR 
SVARS 
SVAR 
SVARGO 
ARYVAR 
ARYVA2 
ARYVAZ 
ARYVCO 
ARYSTR 
GOGO 
DVARS 
DVAR 
DV] 
Dv2 
DVARTS 
VDONE 
GRBPAS 
CAT 
NTL 
MOVINS 
MOVSTR 
MOVESTR 
MVS2 
MVS3 
FRESTR 
FREFAC 
FRETMP 
NB 
FRETMS 
RTNZ 
CHRSTR 
LEFTSTR 
INS1 
INS2 
INS3 
INS4 
BPD 
RIGHTSTR 
MIDSTR 
INS5 
INSTRNG 
LEN 
GETSTR 
ASC 


= GOIQ 


GTBYTC 
GETBYT 
CONINT 


= VAL 


VL2 

VLS3 
POINT 
GTNUM 
COMBYTE 
GETADR 
PEEK 
POKE 


= WAIT 


WT2 

WT3 
RTNA 
FADDH 
FSUB 
FSUBT 
ADB 
FADD 
FADDT 
AD1 

AD2 

AD3 

AD4A 

ADS 
SUBMAN 
SGNIF 
SIGNIF 
FLOOP 
ZEROFAGC 
AtoFAC 
AtoFACS 
ADMAN 
FRl 

FR2 

FR3 
FROUND 
RTN5 
NEGFAC 
NEG2 
PLUSEPS 
RTNS 
OVERFLOW 
SHFTRES 
NXSFT 
SHIFT 
SHl 

SH2 
SHFTR 
SH3 

ONE 
LOGSER 
SQARhalf 
SQRtwo 
HALFneg 
LOGtwo 


= LOG 


GIQ 
LG2 
FMULT 
FMULTT 
FMU 
FMl 
FM2 
FM3 
FM4 
RTN? 
CONUPK 
ADEXP 
ADEXZ 
ADEXS3 
ADEX4A 
OUTOFRNG 
ZERO 
JOV 
MUL1® 
RTN8 
NUMIP 
DIVI1d 
DIV 
FDIV 
FDIVT 
FD1 


= FD2 
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= FD3 


FD4 
FDS 
FD& 
FD7 
DIVZ 
RES>FAC 
MOVFM 
MOVZF 
MOVIF 
MOVML 
SETFOR 
MOVMF 
MOVFA 
MFA 
MFAZ 
MOVAF 
MAF 
MAFZ 
RTN9 
RNDB 
ROUND 
SIGN 
SIGNl 
SIGN2 
RTN1® 
SGN 
FLOAT 
FLOl 
FLO2 
ABS 
FCOMP 
FCOMP2 
EGl 
FE2 
QINT 
ETI 
RTNI1 


= a7 


INT 
ZFAC 
RTNI2 
FIN 
FINZ 
FIN 
EVAL 
NXDIGIT 
CHKDP 
SETSGN 
DPDIG 
GOGEX 
SGNCHK 
SETDP 
ADJEXP 
AEX 
DPLEFT 


= DPRIGHT 


EVDONE 
EVD 
INSRTDIG 
NDP 
ADDACC 
GETEXP 
MVDG 
STEX 
HMmiTNTH 
BILmiONE 
BILLION 
INPRT 
LINPRT 
PRNTFAC 
PESTR 
FOUT 
FACSTRNG 
SFSG 
NOTZE 

MB 

STE 
CMPEM1 
CMPHM 
JM1d 
JD1® 


= ROUN 


INTPART 
DPLOC 
DPL 


= PUTDP 


= SVY 


MAKSTR 
MSLUP 
PARITY 
COUNTED 
MAKDIGET 
SAVY 
MVBACK 
NEEDEX? 
PUTEX 
WHATX 
WNDUP 
MARKEND 
PNTSTK 
HALF 
DECTBL 
SOR 
TEND 
FPWRT 
PWl 

PW2 
NEGOP 
RTNI3 
LOGe 
EXPSER 
EXP 

Al 

OOR 

X2 

X3 
ODDSER 
SERIES 
SERMAIN 
ee 
SERLOOP 
NXTERM 
RTN14 
RNDADJ1 
RNDADJ2 
RND 

RD1 

RD2 

205 

SIN 

SsıL 

sI2 

Lo 

TAN 
TANZ 
PIhalf 
PIdoub 
QUARTER 
SINSER 
ATN 
ATNl 


= ATN2 


ATNS3 


= RTNI15 


ATNSER 
ZPSTUFF 
RTNI6 
COLDST 
MVZP 
FNDMEMHI 
MEMFOUND 
CALL 
INNU 


= PRNU 


PLOTFNS 
GOERR 
LINCOOR 
AT? 
FLOT 
HLIN 
VLIN 
COLOR 
VTAB 
SPEED 
TRACE 
NOTRACE 
NORMAL 
INVERSE 
NRM 

sI 
FLASH 
HIMEM 


= JMM 


= SETHI 


LOMEM 
ONERR 
HANDLERR 
RESUME 
JSYN 
DEL 
MOVDWN 
MOVIT 
NDX 

GR 
TEXT 


= STORE 


SLI 
RECALL 
MOK 
HER2 
HGR 
SETHPG 
HCLR 
BKGND 
BKGNDL 
HPOSN 
HPOSNI 
HPOSN2 
HPLOTO 
LFTRT 
LEFT 
LR1 
LEFTI 
LEFT2 
NEWNDX 
CSHIFT 
CSHPT2 
RTS1 
RIGHT 
LRUDX1 
LRUDX2 
LRUDI 
LRUD2 
LRUD3 
LRUD4 
E93 
UPDOWN 
UP 

UP1l 
UP5 
UP2 
UP3 
UPA 
UPDWNI 
DOWN 
E94 
DOWNZ 
DOWN 
DOWN2 
HLINRL 
HGLIN 
HLIN2 
HLIN3 
MOVEX 
MOVEX2 
HCOUNT 
HLINA 
MSKTBL 
EQIC 
COSTBL 
HFIND 
HFIND]1 
HFIND2 
RTS2 
DRAWG 
DRAW 
DRAW2 
DRAW3 
DRAWA 
DRAW5 
XDRAW® 
XDRAW1 
XDRAW2 
XDRAW3 
XDRAWA 
XDRAW5 
NI 
HPNS 
HFNS1 


= GGERR 
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Adressen-Labels $D000-$FFFF Labels-Adressen $D000-SFFFF 
= HCOLOR = XRTS $FD67 = GETLNZ 
RTS3 PCINC2 $FD6EA = GETLN 
= CGOLORTBL PEINGS $FD71l = BCKSPC AlH = $B3D BLTU = $D393 CURLIN = $8875 
HPLOT XJSR $FD75 = NXTCHAR AlL = $BB3C BLTU2 = $D39A CURLSYV = $ßßF6 
HP2 XJMP $FD7E = CAPTST | AIPC = $FE75 BPD = $E67F CV = $9625 
HP3 XJMPAT $FD84 = ADDINP AlIPCLP = $FE78 BRANCH = $FAFD (v2 = $DD74 
ROT NEWPCL $FDBE = CROUT ALPCRTS = $FETF BREAK = $FA92 er = $E45F 
SCALE RTNJMP $FD92 = PRAl A2H = $PSF BREAKIN = $D35D DATA = $D995 
DRWPNT REGDSP SFDIE = PRYX2 A2L = $BB3E BS = $Fe1ß DATAFLG = $8913 
DPI RGDSP1 $FDAZ3 = XAM8 A3H = $adal BSB = $EB49 DATAN = $D9A3 
DP2 RDSP1 $FDAD = MODSCHK A3L = $oöBAB BSCLC2 = $FBDP DATAOUT = $FDB& 
DP3 BRANCH $FDB3 = XAM AAH = $9043 BYPASS = $ES12 DATIN = $D069 
DRAW NBRNCH $FDB& = DATAOUT AAL = 59842 CALL = $F1D5 DATLIN = $967B 
XDRAW INITBL $FDC5 = RTSAaC ASH = $0945 CANCEL = $FD62 DATPTR = $B67D 
SHLOAD RTBL $FDC6 = XAMPM A5L = 59944 CANTCON = $D332 DECTBL = $EE69 
SL1 PREAD $FDD1l = ADD ABS = $EBAF CAPTST = $FDTE DEF = $E313 
SL? = PREAD? $FDDA = PRBYTE ACC = 5045 CAT = $E597 DEL = $F331 
SL3 RTS2D $FDE3 = PRHEX ACH = $8051 CH — $9924 DESC? = $DASC 
TAPEPNT INIT $FDE5S = PRHEXZ ACE = $005% CHAR1 = $F9B4 DEST = $ABsPp 
GETARYPT SETTXT $FDED = COUT AD® = $E7B9 CHAR? —- $FOYBA DFLTDIM = $EIlF7 
HTAB SETGR $FDFÖ = COUTI AD1 = $E7C6 CHARAC = $000D DIG = $FFBA 
HTABL SETWND $FDF&6 = COUTZ AD2 = $E7CE CHKCLS = $DEB8B DIM = $DFD9 
HTAB2 TABV $FEßO = BL1 AD3 = $ETEA CHKCOM = $DEBE DIMFLE = $BB1g 
MONPLOT MULPM $FEßA4 = BLANK AD4 = $ETEE CHKDIM = $ElAA DIMLUP = $E253 
PLOT MUL $FEBB = STOR ADS = $E7FA CHKDP = $EC66 DIMOK = $E26F 
RTMASK MUL2 $FEl7 = RTS5 ADD = $FDDl CHKMEM = $D3D6 DIMOK2 = $E278 
PLOT1 MUL3 $FElS = SETMODE ADDACC = $ECD5 CHKNUM = $DD6A DIR? = $DBC7 
HLINE MULA4 $FElD = SETMDZ ADDINP = $FD84 CHKOPN = $DEBB DIRCT = $D7E5 
HLINEL MUL5 $FE2ß = LT ADDON = $D998 CHKSTR = $DD6C DIV = $EA5E 
= VLINEZ DIVPM $FE22 = LTR ADEX2 = $EA1® CHKSUM = $ßß2E DIV = $FB84 
VLINE DIET $FE2C = MOVE | ADEX3 = $EAIlB CHKTYP = $DDB4 DIV1® = $EA55 
RTS1 DIV2 $FE36 = VFY ADEX4A = $EAR6 CHKVAL = $DD6D DIV2 = $FB86 
CLRSCR DIVA $FE5S8 = VFYOK ADEXP = $EABE CHRGET = $8ßB1l DIV3 = $FBAB 
CLRTOP MD1 $FESE = LIST ADJEXP = $ECOE CHRGOT = $08B7 DIVPM = $FB8l 
CLRSC2 | MD2 $FESS = LIST2 ADMAN = $E855 CHRSRCH = $FF7A DIVZ = $EAEl 
CLRSC3 MD3 $FE75 = AIPE ADVANCE = $FBF4 CHRSTR = $E646 | DIvVbyZRO = $D2E5 
GBASCALC MDRTS $FE78 = AlPCLP AEX = $ECAB CHRTBL = $FFCC | DMTH - $DE4Al 
GBCALC BASCALC SFE7F = ALPORTS AMPER = $03F5 | CLEAR = $D66A DOCMP = $DFB5 
NXTCOL BSCLC2 $FES® = SETINV AND = $DF55 | CLEARC = $D66C DOERRMSG = $D419 
SETCOL BrtLLI $FES4 = SETNORM ARG = $0BA5 | CLEOL2 = $FCA® DOMATH = $DE43 
SCR BELL2 $FESS = SETIFLG ARGSGN = $BßAA CLEOLZ_ = $FC9IE DOMTH = $DE3A 
SCRN RTS2B $FESYI = SETKBD ARITH = $DDcC5 CLEOPl = $FC46 DONE = $D61$ 
SCRN2 STOADY $FESB = INPORT ARRAY = bELIE CLREOL = $FCSC DOREENT = $DB9® 
RTMSKZ ADVANCE $FESD = INPRT ARYFOUND = $EI19E CLREOP = $FC42 DOSPC — $DB35 | 
INSDS1 RTS3 $FE93 = SETVID ARYLOOP = $EIl6D CLRSC2 = $F838 DOWN = $F5ß5 
INSDS2 VIDOUT $FEI5S = OUTPORT ARYNAM? = $E179 CLRSCE = $F83C DOWN = SFE2A | 
IEVEN BS $FE9T = OUTPRT ARYPNT = $0694 CLRSCR = $F832 DOWN? = $F52C | 
ERR UP $FESB = IOPRT ARYSTR = $ESßC CLRTOP = $F836 DOWN3 = $F524 | 
GETFMT VTAB $FEA7 = IOPRTL ARYTAB = $9ß6B CMDTABL = $Dp##% DPI = $F74] 
MNNDX1 VTABZ $FEA9S = IOPRT2 ARYVA2 = $EACA CMPBMl = $ED62 DP2 = $m747 
MNNDX2 RTS4A $FEB® = XBASIC ARYVYA3 = $EACE CMPDONE = $DFCl DP3 = $F766 
MNNDX3 ESC1 $FEB3 = BASCONT ARYVAR = $E4C2 CMPHM = $ED6D DPDIG = $EC87 
= INSTDSP CLREOP SFEBS = GO ARYYGO = $E4D9 CMPLOOP = $DFAA DPFLG = $009B 
PRNTOP CLEOPI $FEBF = REGZ ASC = $E6E5 COLCOUNT = $BßEA DPL = $ED9YF 
PRNTBL HOME $FEC2 = TRACE ASCHEX = $DAl2 COLDST = $F128 DPLEFT = $ECAS 
PRMNI1 CR | $FECA = STEPZ AT? = $F218 COLON? = $D842 DPLOC = $EDYE 
PRMN2 Br | $FECA = USR ATN = $F@9E COLOR = $0939 DPRIGHT = $ECB2 
— PRADRl SCROLL $FECD = WRITE ATN1 = $FßAS COLOR = $F24F DRAW = $F769 
PRADR2 = SCRL1 $FEDA = WRl ATN2 = $FOB4 COLORTBL = $F6F6 DRAW = $F6ßl 
PRADR3 SCRL2 $FEED = WRBYTE ATNZ3 = $FdC7 COMBYTE = $E74C DRAW1 = $F6B5 
PRADR4 SCRL3 $FEEF = WRBYT2 ATNSER = $FOCE COMPARE = $DDE4 DRAW2 = $F626 
PRADRS CLREOL SFEFS = CRMON AUXH = $9#55 CON = $D8Al DRAW3 = $F63B 
RELADR CLEOLZ $FEFD = MONREAD | AUXL = 0854 CONINT = $ES6FB DRAWA — $F63D 
PRNTYX = GEEOLE | $FEFD = READ | AYINT = $E1BC CONT = $D896 DRAW5 = $F648 
= PRNTAX MONWAIT $FFÖ2 = MONREAD2 AtoFAC = $E85P CONUPK = $E9IE3 DRWPNT = $F72D 
PRNTX WAIT | $FFÖA = RD2 AtoFACS = $E852 COPSTR = $DA9A DSCLEN = $Bd8F 
PRBLNK WAIT2 |  $FF16 = RD3 BADNAM = $DFF4 coPY = $DAB7 DSCPTR = $Bp8C 
PRBL2 WAIT3 $FF2D = PRERR BADSUBS = $D2CB cos = $EFEA DSCTMP = $dß89D 
PRBL3 NXTAA $FF3A = BELL BAS2H = $#92B COSTBL = $F5BA Dy1 - $E538 
PCADJ NXTAI $FF3F = RESTORE | BASZL = $BB2A COUNTED = $EDE7 DV2 = $5542 
PCADJ2 RTS4B $FF44 = RESTRl | BASCALC = $FBCl COUNTH = $##1D DVAR = $E523 
= PCADJZ3 HEADR | $FFAA = SAVE | BASCONT = $FEB3 COUT = $FDED DYARS = $E519 
PCADJA WRBIT | $FFAC = SAVl BASH = 99629 CoUTl = $FDFd DVARTS = $E552 
RTS2 ZERDLY $FF59 = RESET BASIC = $EßBR COUTZ = $FDF& DXH — $o0D1 
FMT1 = ONEDLY $FF65 = MON | BASIC2 = $EBB3 | CPRMASK = $BP16 DEE = $H0D8 
= FMT2 WRTAPE $FF69 = MONZ BASL — $9028 | CPROP = $DD98 DY — $#0D2 
CHAR] RDBYTE $FF73 = NXTITM BCKSPC = $FD71 | CPRTYP = $p989 EH = $60D5 
CHAR2 RDBYT2 $FF7A = CHRSRCH | BELL = $FF3A CR = $PC62 EL = $BBD4 
MNEML = RD2BIT $FF8A = DIG BELL1 = $FBD9I CRDO = $DAFB END = $D876 
MNEMR RDBIT $FF9QO = NXTBIT BELL2 - $FBE4 CRMON = $FEF6 END? - $D871 
STEP RDKEY $FF98 = NATBAS BILLION = $ED14 CROUT = $FDSE ENDZ - $D888 
XQINIT KEYIN $FFA2 = NXTBS2 BILmiONE = $ED$F CSHFT2 = $F4TE ENDA - 90884 | 
xl KEYIN?2 $FFA7T = GETNUM BKEND = $F3F6 CSHIFT = $FATc | 
x0Q2 | ESC $FFAD = NXTCHR BKGNDI = $FZFE CSWH = $0637 ENDCHR = $PBBE | 
IRQ RDCHAR $FFBE = TOSUB BL1 = $FEBO CSHL = $036 ENDFOR = $DD55 
BREAK NOTCR $FFC7 = ZMODE BLANK = $FEB4 CTRC? = $D86C ENDRNG = $D6C4 


XBRK NOTCRl $FFCC = CHRTBL 
= XRTI = CANCEL SFFE3 = SUBTBL 
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EQIC 
EOS 

EQ4 
EQUAL 
EQUL 
EQUOP 
ERFLG? 
ERLIN 
ERLUP 
ERR 
ERRDIR 
ERRFLG 
ERRIN 
ERRLIN 
ERRMSG 
ERRNUM 
ERROR 
ERRPOS 
ERRSTK 
ESC 
ESCl 
EVAL 
EVD 
EVDONE 
BEXIG 
EXIT 
EXP 
EXPON 
EXPSER 
EXPSGN 
EXTRAFAC 
EXTRASV 
FAC 
FACSGN 
FACSTRNG 
FADD 
FADDH 
FADDT 
FALSE 
FCl 

FC2 
FCOMP 
FCOMP2 
FD1 

FD2 

FD3 

FDA 

FD5 

FD6 

FD7 
FDIV 
FDIVT 
FEIl 

FE2 
FEND 
FEVLOOP 
FIN 
FIN2 
FINS3 
FINDATA 
FINDEOL 
FIRSE 
FL1 

FL2 
FLASH 
FLOl 
FLO2 
FLOAT 
FLOOP 
FMl 

FM2 

FM3 

FMA 
FMT1 
FMT2 
FMU 
FMULT 
FMULTT 
FN? 
FNG? 
FNCDATA 
FNCNAM 
FNDARY 
FNDELEM 
FNDFOR 
FNDLIN 
FNDMEMHI 


= $D61A 


= $F181 


FNDVAR 
FÜR 
FÜRZ 
FORMAT 
FORMtOCX 
FORPNT 
FOUT 
FPGEN 
FPWRT 
FR1 

ER2 

FR3 

FRE 
FRE2Z 
FREFAC 
FRESPC 
FRESTR 
FRETMP 
FRETMS 
FRETOP 
FRMEVL 
FRMEVL2 
FRMNUM 
FROUND 
FSUB 
FSUBT 
FULL 
FUNCT 
GARBAG 
GARFLG 
GBASCALC 
GBASH 
GBASL 
GBCALC 
Gb 

GD 
GDBUFS 
GERR 
BET 
GETABDR 
GETARY 
GETARY2 
GETARYPT 
GETBYT 
GETCHR 
GETEXP 
GETFMT 
GETIN 
GETLINK 
GETLN 
GETLNZ 
GETNUM 
GETOLD 
GETSPA 
GETSPC 
GETSTR 
GETVAL 
GGERR 
GIQ 
GIVAYF 
GK 

GME 

GO 

GOl 

G02 
GOCMD 
GOCMD2 
GOEND 
GOERR 
GÜBX 
GOGEX 
GOGO 
GOIQ 
GOLINE 
GONEWST 
GOROUT 
GOSTART 


$E488 
- 50766 
SDoTTT 
= $Sß2E 
$D31lF 
$0985 
= $ED34 
$0BAA 
= $EE97 
$E874 
$EBSY 
$E88D 


= $E2DE 


= $E2E5 
= $ESAR 
= $9971 
= $E5FD 
= $E6ß4 
= $56635 
= $Bö6F 
= $DD7B 
= $DD95 
— $DD67 
= $E88F 


GOSTROUT = 


GOSUB 
GOTFOR 
GOTO 
GOTO? 
GOTSPA 
GOWARM 
GR 
GRBPAS 
GSE 


Labels-Adressen $D000-$FFFF 


GSYNER 
GTBYTC 
GTFORPNT 
GTLT 
GTNUM 
HZ 

HALF 
HALFneg 
HANDLERR 
HCLR 
HCOLOR 
HCOLOR1 
HCOLORZ 
HCOUNT 
HEADR 
HFIND 
HFINDI 
HFIND2 
HFNS 
HFNS1 
HGLIN 
HGR 
HGRR 
HIGHDS 
HIGHTR 
HIMEM 
HIRES 
HISCR 
HLIN 
HLINZ 
HLINS 
HLIN4 
HLINE 
HLINEI 
HLINRL 
HMASK 
HMniTTNTH 
HNDX 
HOME 
HR2 

HP3 
HPAG 
HPLOT 
HPLOT® 
HPOSN 
HPOSN1 
HPOSN2 
HTAB 
HTABL 
HTABZ 
IEVEN 
IF 
IFTRUE 
ILLDIR 
ILLQUAN 
IN 
INCHR 
INDEX 
INDX 
INIT 
INITBL 
INLIN 
INLINZ 
INMSG 
INNU 
INPDONE 
INPERR 
INPFIN 
INPORT 
INPRT 
INPRT 
INPTR 
INPUT 
INPUTERR 
INPUTFLG 
INS1 
INS2 
INS3 
INS4 
INSS5 
INSDS1 
INSDS2 
INSRTDIG 
INSRTLIN 
INSTART 
INSTDSP 
INSTRNG 





= $D981 
= $E6SFS5 
- $D365 
= $ESll 
= $E746 
= $B82C 
= $EE64 
= $6937 
= $F2E9 
= $F3F2 
= $F6E9I 
= $B1cC 
= BEA 
= $F58B 
= $FCC9 
= $FSCB 
= $FSF$ 
= $F6FE 
= $F6B9 
= $F6CD 
= $FE3A 
= $F3E2 
= $F3D8 
= $0994 
= $B896 
= $F286 
$0857 
$C955 
6F232 
$F558 
$F568 
= $F59E 
$F819 
$F8lC 
$F538 
= 030 
SEDBA 
$ö0ES 
$FC58 
$F78 
$F7OF 
$öREs 
$F6FE 
$F457 
= $PAll 
$F441 
= $F442 
$F7ET 
$FTEC 
$F7FA 
= $F89B 
$D9C9 
= $DIEL 
= $D2F5 
$D295 
= $9290 
60553 
$005E 
= $9999 
$FB2F 
= $FBll 
= $D52C 
$D52E 
= $D358 
= SEIDE 
$Dcc6 
= $DB86 
= $DC99 
= $FESB 
= $ED19 
= $FESD 
$OBT7F 
$DBB2 
$DB71 
$8815 
$ES6B 
$E666 
= $E667 
$E668 
= $E6A2 
= $F882 
$FSBE 
$gEcCL1 
$DAEA 
$DC2B 
$FEDd 
= $E6BY 


INT 
INTPART 
INTVAR? 
INVERSE 
INVFLG 
IOADR 
IOPRT 
TOPRTI 
IOPRT2 
IQERR 
IRQ 
IRQLOC 
ISCNTC 
ISLETC 
ISTOoR? 
JARY 
JD1P 
JER 
JERR 
JERROR 
JF 
JGOCMD 
JLNK 
JM1B 
JMM 
JMPADRS 
JOV 

JSY 
JSYN 
KBD 
KBDSTRB 
KEY 
KEYIN 
KEYIN2 
KSWH 
KSWL 
LASTIN 
LASTOP 
LASTPT 
LEFT 
LEFTI 
LEFT2 
LEFTSTR 
LEN 
LENGTH 
LENGTH 
LET 
LET2 
LETREAL 
LETSTR 
LF 
LFTRT 
LG2 

LIN 
LINCOOR 
LINGET 
LINKSET 
LINNUM 
LINPRT 
LIST 
LIST 
LIST2 
LISTED 
LISTLOOP 
LMNEM 
LOAD 
LOC® 
LOC1 
LOCK 
LOG 
LOGSER 
LOGe 
LOGtwo 
LOMEM 
LORES 
LOWSCR 
LOWTR 
LRI 
LRUD1 
LRUD2 
LRUD3 
LRUD4 
LRUDX1 
LRUDX2 
LSPLLIN 
LSTD? 


BL2 

MAF 
MAF2 
MAININP 
MAINLST 
MAKARY 
MAKDIGIT 
MAKINT 
MAKSTR 
MARKEND 
MASK 
MATHTBL 
MB 

MD1 

MDZ 

MD3 
MDRTS 
MEMERR 
MEMFOUND 
MEMSIZ 
MFA 
MFAZ 
MIl 

MI2 
MIDSTR 
MIN 
MINUS 
MISMTCH 
MIXCLR 
MIXSET 
MKINT 
MNEML 
MNEMR 
MNNDX1 
MNNDX2 
MNNDX3 
MODSCHK 
MODE 
MOK 

MON 
MONPLOT 
MONREAD 
MONREAD2 
MONWAIT 
MONZ 
MORNAM 
MOVIF 
MOVZF 
MOVAF 
MOVDWN 
MOVE 
MOVESTR 
MOVEX 
MOVEX2 
MOVFA 
MOVFM 
MOVINS 
MOVIT 
MOVMF 
MOVML 
MOVSTR 
MSKTBL 
MSLUP 
MU 

MUR 

MUS 

MUL 
MUL1ß 
MULZ 
MULS 
MUL4 
MULS 
MULPM 
MULT 
MVBACK 
MVBYT 
MVDG 
MVDWN 
MVPRG 
MVS2 
MVS3 
MVZP 
NAMOK 
NB 
NBRNCH 
NCR 

ND 


NDP 

NDX 
NEEDEX? 
NEGZ 
NEGATE 
NEGFAC 
NEGNUM 
NEGOP 
NEW 
NEWDESC 
NEWLN? 
NEWNDX 
NEWPCL 
NEWSTT 
NEWVAR 
NEXT 
NEXTCHR 
NI 

NIN 
NINT 
NINTA 
NL1 

NMI 

NOI 
NORMAL 
NOSUCH 
NOT? 
NOTCR 
NOTCR1 
NOTFND 
NOTFOUND 
NOTMATH 
NOTOK 
NOTRACE 
NOTZ 
NOTZE 
NOTinstr 
NRM 

NTD 

NTL 
NUM1® 
NUMBER 
NUMCMP 
NUMDIM 
NUMIN 
NV1 

NV2 
NWV 

NX 
NXARY 
NXBYT 
NXCHAR 
NXCHR 
NACLM 
NXDIG 
NXDIGIT 
NÄDIM 
NXDM 
NXFOR 
NXIN 
NXINP 
NXLIN 
NXLINK 
NXLST 
NXNUM 
NXOP 
NXPAG 
NXPG 
NXPTR 
NXS 
NXSFT 
NXSPC 
NXTAL 
NXTA4 
NXTBAS 
NXTBIT 
NXATBS2 
NXTCHAR 
NXTCHR 
NXTCOL 
NXTDIM 
NXTERM 
NXTITM 
NXVAR 
NXwoFÜR 
NY 

NZ 
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ODDSER 
OLDLIN 
OLDTEXT 
ONCNT 
ONE 
ONEDLY 
ONERR 
ONESTEP 
ONGOTO 
DOOR 

OR 
ORMASK 
OUTDO 
OUTOFRNG 
OUTPORT 
OUTPRT 
OUTQUES 
OUTSP 
OVERFLOW 
OVFLOW 
OofDATA 
OcfMEM 
PADDLA 
PARCHK 
PARITY? 
PARSE 
PCADJ 
PCADJZ 
PCADJS3 
PCADJ4A 
FCH 
PCINC2 
PCINC3 
PCL 

PDL 
PECHR 
PEEK 
PENCHR 
PICK 
PIdoub 
PIhalf 
PLOT 
PLOT 
EEOTL 
PLOTFNS 
PLU? 
PLUS 
PLUSEPS 
PNTR 
PNTSTK 
POINT 
POKE 
POP 

POS 
POSOP 
PRAl 
PRADR1 
PRADR2 
PRADR3 
PRADR4A 
PRADR5 
PRBL2 
PREL3 
PRBLNK 
PRBYTE 
PREAD 
PREAD2 
PREFNC 
PREFTEST 
PRERR 
PRGEND 
PRHEX 
PRHEXZ 
PRINT 
PRINT2 
PRMN1 
PRMN2 
PRNTAX 
PRNTBL 
PRNTFAC 
PRNTIN? 
PRNTOP 
PRNTX 
PRNTYX 
PRNU 
PROGIO 
PROMPT 
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PRSTR 
PRSTRING 
PRTOK 
PRYX2 
PSHF 
PSHFACX 
PSHMAD 
PTRGET 
PTRGET2 
PTRGET3 
PTRIG 
PULL3 
PUSHFAC 
PUTCHR 
PUTDP 
PUTEMP 
PUTEX 
PUTIN 
PUTLINK 
PUTNEW 
PUTSTR 
PUTTOK 
PWl 

PW2 
ODRNT 
gIl 

0I2 
QINT 
QOUT 
QUARTER 
QUO? 
RAR 
RARY 
RDl 

RD2 

RD2 
RD2BIT 
RD3 
RDBIT 
RDBYT2 
RDBYTE 
RDCHAR 
RDKEY 
RDSP1 
READ 
READ 
READERR 
REASON 
RECALL 
REENT 
REGDSP 
REGZ 
RELADR 
REM 
REM? 
REMN 
REMSTK 
RES>FAC 
RESET 
RESPERR 
RESTART 
RESTORE 
RESTORE 
RESTR1 
RESULF 
RESUME 
RET1 
RET1Ö 
RETI1 
RET12 
RET2 
RET3 
RETA 
RET5 
RET6 
RET7 
RET8 
RET9 
RETURN 
REdimARR 
RGDSP1 
RIGHT 
RIGHTSTR 
RMl 

RM2 
RMNEM 
RND 


= $DEIl5 


| 
Rap 
Ze 
Sz]02] 12) 
aD "2 
oO oa 0 


- $DFEA 
= $C979 


Il 
RRRR 
Bi 
onm% 
> OD 0 
> a 0 


= $E435 


Il 
£ 
2 
v1 
IaN 
9 


in ua 
VRR 
al 
HRaU0 
Ga 0 
DhrRoas» 


I 
69 
2 
71 D&D 
Q 
a © 








RNDADJ1 
RNDADJR 
RNDB 
RNDH 
RNDL 
RNDSEED 
ROT 
ROTZ 
ROUN 
ROUND 
RS1 

Rsz 

RSS 
RTBL 
RTMASK 
RTMSKZ 
RTN\ 
RTN19 
RTNI1 
RTN12 
RTN13 
RTNI14 
RTN15 
RTN16 
RTN2 
RTN3 
RTNA 
RTNS 
RTNS 
RTN? 
RTN8 
RTNS 
RTNH 
RTNJMP 
RTNL 
RTNwWoGSB 
RTS1 
RTS1 
RTS2 
RTS2 
RTSZB 
RTS2D 
RTS3 
RTS3 
RTS4 
RTSAB 
RTS4AC 
RTSS 
RUN 
RUNLINE 
SAMEFOR? 
SAvıl 
SAVDIM 
SAVE 
SAVE 
SAVOLD 
SAVOP 
SAVY 
SCALE 
SCALEZ 
SCDCH 
SCR 
SCREEN 
SCRL1 
SCRL2 
SCRLS 
SCRN 
SCRNZ 
SCROLL 
SCRTCH 
SE 
SEND 
SENDCHR 
SERIES 
SERLEN 
SERLOOP 
SERMAIN 
SERPNT 
SETCOL 
SETDA 
SETDP 
SETEND 
SETFOR 
SETGR 
SETHI 
SETHPG 
SETIFLG 


II 


I 





$EFAA 
$EB72 
$OB4AF 
$OB4E 
$A0C9 
$F721 
$DOF9 
$EDS6 
$EB7A 
$D3ED 
$DSF1 
$DZFC 
$FB19 
$F8IC 
$FETF 
$EßSE 
$EBSF 
$ECIl 
$EC49 
$EEDA 
$EFAS 
$SFOCD 
$F122 
SE2AC 
$E645 
$E79F 
$ESID 
$E8DA 
$E9E2 
$EAAF 
$EB71 
$092D 
$FADL* 
$282C 
$D276 
5F489 
$F831 
$F6B8 
$F961 
$FBEF 
$FB2E 
$F6FB 
$FBFC 
$FC2B 
$FCCB 
$FDC5 
$FEl7 
$D912 
$D91B 
$D37F 
$FFAC 
$ElE7 
$DEBP 
$FFAA 
$E378 


= $DDD7 


$EEBO 
$F727 


= $00E7 


$EB3D 
$F871 
$DEF9Y 
$FC76 
$FCEC 
$FC95 
6F871 
6F879 
SFC7B 
SD64AB 
$D578 
$DB64 
$D792 
$EF72 
HöDA3 
$EF89 
$EF76 
$OBAD 
$F864 
$D853 
$EC9Y8 
$D3B7 
$EB2T7 
$FB4G 
$F299 
$SF3EA 








12 ASSEMbIER 24 





SETINV 
SETKBD 
SETMDZ 
SETMODE 
SETNORM 
SETPTRS 
SETSGN 
SETTXT 
SETVID 
SETVPNT 
SETWND 
SFS 
SFSG 
SGN 
SGN? 
SGNCHK 
SGNCPR 
SGNIF 
SHl 

SH2 

SH3 
SHAPEH 
SHAPEL 
SHAPEPNT 
SHFTIN 
SHFTR 
SHFTRES 
SHIFT 
SHIN 
SHLOAD 
SI 

SIl 

5I2 

sIs3 
SIGN 
SIGN 
SIGN1 
SIGN2 
SIGNFLG 
SIGNIF 
SIN 
SINSER 
SK2 
SKIP 
SKIPTOK 
SKP 
SKPTK 
SKPYV 
SsL1 

SsL2 

SL3 

SLI 
SNDQ? 
SNGFLT 
SNTÄXERR 
SPC? 
SPEED 
SPEEDZ 
SPKR 
SPNT 
saR 
SQRhalf 
SQRtwo 
55 

SSF 

Sl 
STACK 
STATUS 
STE 
STEP 
STEP 
STEPZ 
STEX 
STKINI 
STOADYV 
STOP 
STOR 
STORE 
STR 
STRCMP 
STREND 
STRINI 
STRIP 
STRLIT 
STRLT2 
STRNGLl 
STRNG2 





nm nm N 
BR RRE 
a a a a a = 
vovooDmıan 
a 2 ID I 0 
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I 
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= 
= 
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I 
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D 


= $E907 
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var 


= $F775 


el 
4 
=) 
=ımd 
duo 
Sı oJ 





STRNG? 
STROUT 
STRPRT 
STRSPA 
STRTRNG 
STRTXT 
STRtOLNG 
STÄP 
STÄTPT 
SUBERR 
SUBFLG 
SUBMAN 
SUBTBL 
SVAR 
SVARGO 
SVYARS 
SVP 

SVY 
SWPNT 
SYNCHR 
SYNERR 
SYNTXERR 
TAB 
TABTT 
TABV 
TABKHERE 
TAN 
TAN2 
TAPEIN 
TAPEOUT 
TAPEPNT 
TEMP1 
TEMP2 
TEMP3 
TEMPPT 
TEMPST 
TEND 
TEXT 
TMPEXP 
TOK? 
TOKDONE 
TOKEN? 
TOKLP 
TOKLUP 
TOKTABL 
TOSUB 
TRl 
TRACE 
TRACE 
TRACE? 
TRCFLG 
TRUE 
TRUE? 
TVAR 
TWOBRK 
TXPSV 
TXTCLR 
TXTPSV 
TATPTR 
TXTSET 
TXTTAB 
TYPEMISS 
UNARY 
UNDERR 
UNDFNC 
UNDFUNC 
UNDSTAT 
UNFNG 
UP 

UP 

UP1 

UP2 

UP3 

UP4 

UPS 
UPDOWN 
UPDWN1 
USR 

USR 
USRADR 
v2 

VAL 
VALTYP 
VAR? 
VARL 
VARNAM 
VARNXT 


II 
= 
DO 
el 
Q 
=. 


= $D27B 





VARPNT 
VARTAB 
VARTIO 
VDONE 
VET 
VFYOK 
VIDOUT 
VL2 
VL3 
VLIN 
VLINE 
VLINEZ 
VPNT 
VRl 
VR2 
VSEARCH 
VTAB 
VTAB 
VTABZ 
WAIT 
WAIT 
WAITZ2 
WAITS 
WHATX 
WNDBTM 
WNDLFT 
WNDTOP 
WNDUP 
WNDWDTH 
WNX 

WR1 
WRBIT 
WRBEYTZ 
WRBYTE 
WRITE 
WRTAPE 
WT2 

WT3 

XBH 

XÖL 

xl 

AR 

X3 

ZAM 
XAM8 
XAMPM 
XBASIC 
XBRK 
ADRAW 
XDRAWO 
ÄDRAW1 
ADRAW2 
XDRAWS 
ADRAWA 
ADRAWS 
AJMP 
AJMPAT 
AJSR 
xql 

XQ2 
XQINIT 
XQT 
AQTNZ 
XREG 
XRTI 
ARTS 
ATNDH 


ZERDLY 
ZERO 
ZEROFAC 
ZF 

ZFAC 
ZLUP 
ZMODE 
ZPSTUFF 








nl 
ce 
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PRRPRRRRH 
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DD SSvadla 
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| Verkauf Software | 


Astrologieprogramme. Info n. 
Voreinsendung 1 DM in Briefmar- 
ken. C. Landscheidt, Im Dorfe 14, 
2804 Lilienthal. 


Apple il-Programmgenerator für 
Eingabemasken 59,—. DATEIVER- 
WALTUNG m. Editor, Grafik, Listen- 
paket 65,—. Info —,80 bei: 
FAHRENBERBG, Rittershausstr. 4, 
5300 Bonn 1 


Multi Tools, 20 leistungsstarke 
Assemblerutilities für II +, e,c 60,-, 
programmierbare Laufschrift für 
Werbung u.ä. 30,-. C. F. Mahr, 
Waldackerweg 71, 7300 Esslingen 


SIDEWAYS für Apple und IBM 
druckt Kalkulationstabellen und 
Texte um 90 Grad gedreht. 
SIDEWAYS kostet ab Lager nur 
DM 250 plus MwSt. bei LUCIUS 
Computer-Programme, Th.-Kör- 
ner-Str. 5C, 4220 Dinslaken, 
02134/52782 





160-Track-Besitzer aufgepaßt: 16- 
Sekt-Copyprg / einfache Bedien / 
in Masch / jede Trackzahl möglich! 
Rüter, Rahdener Str. 65, 4955 Hille 


Ankauf Software 


Suche für Apple-Il Fortran-77 und 
Fortran-80 mit Anleitungen 
Tel.: 05251/91624 


Verkauf Hardware 


TEAC 55F 600,- 55B 550,- * 
SSDD 10 St 42,- 96 tpi DS 78,- 
Lochverst. europ. Markenw. x» Box 
Rglas. Schl. für 40-42, für 80— 
49,— * Monitore 18Mhz 12” entsp. 
gr. ab 298,—. VICO, 

Selchower Str. 31, 1000 Bin 44 


Verk. Apple lie, 128K, 80 Z, 2 
Disk., Monitor, Drucker 8510 A, A- 
Writer, Visic., Datenbank usw., NP 
11500, VP 5500, Tel. 0209/ 
271070 ab 18h. 


peel 


örse 





Verkaufe APPLE Ilc + Monitor + 
Imagewriter — Tel. 094 09/933 


Apple Ilc mit 5 orig. Disk + 2 LW 
3 Mon. alt zvk. DM 3300,— VHS 
Tel. 07253/3714. 


APPLE-Tastaturen werden durch 
BETA-Box zu frei programmierbar. 
Tastatur Info: Altenburg, Kampstr. 
20, 5014 Kerpen-3, Preis ab 215,— 


APPLE + Zubehör und Drucker 
Tel. 0421/358488 


X-Y Plotter DIN A3 
6 Farb X-Y Plotter mit Centronic 
Schnittstelle günstig zu verkaufen 
Tel.: 06303/4328. 


Biete Epson MX80 + Interf. 780,- 
Tel.: 07071/63136 


Compatibler im IBM-Look mit 
6502 + 280 CPU, 256K Ram Disk, 
2 160K TEAK-Laufwerke, abge- 
setzte Tastatur, VOICE-Genera- 
tor, Musik- und Printerinterface zu 
verkaufen - Tel.: 06303/4328 








== RUND 


== Büroelektronik 
Keithstr. 26 : 1 Berlin 30 - & 0 30-26 11126 


Erscheinungs- und Anzeigen- 
schlußtermine für peeker 


Ausgabe 


20.05.55 


24. 6.85 24. 


222.33 2: 


26..8.85 26. 


ZI or 23: 


2110, 89 a. 


Dale 


78 


Erscheinungs- 
termin 


Änzeigen- 
schluß 


19. 4.85 
3189 
5. 85 
7238 
9283 
293 


25. 10, 85 


ER IIIFIP 


MACINTOSH 128KB neuwertig 
5999 DM IMAGEWRITER original 
verp. 1499 DM zu verkaufen. 

Tel. 06151/27147 


BASIS 108 Komplettsyst. CP/M 3. 
2 F122 Laufw. Preis DM 4100,-. 
PAL Karten DM 120,- 

Tel.: 02747/2999 


Disketten 5 1/4”, 1 D, zu 3,70 DM, 
EDV-Zubehör. G. Einbeck, Noriker 
Str. 19, Block 2, Nürnberg, Tel. 
0911/460681, Mo-Fr 7 bis 12 Uhr. 


Verschiedenes . 


APPLE USERS 

Verkaufe deutsche Bedienungsan- 
leitung für den Imagewriter-Drucker. 
Tel.: 0231/336023 nach 18 Uhr 


** APPLE-Bücher natürlich bei xx 
DV-Fachbuchhandlung M. Igelhaut, 
Hardenbergstr. 34, 8510 Fürth, Tel. 
0911/721443, GRATIS-INFO: AP 


== RUNDLL 


== Biüroelektronik GmbH 
Bachstr. 104 » 2 HH 76 : @ 0 40-220 1155 


Inserentenverzeichnis peeker 5/85 


Bühler Elektronik, Baden-Baden 
CP/D EDV-Anlagen, Düsseldorf 


Seite 
BE 
eo; 


D.O,S. Computersysteme, Schwäbisch Hall . . . 11 
Erbrecht Computer Related Products, Hamburg . . . 23 
Hamburger Computerversand, Hamburg . . . .. 47 


IBS Computertechnik, Bielefeld 
Interkom Electronic, Isernhagen 


Intus, Waldshut-Tiengen 
Klaus Jeschke, Kelkheim . 
McGraw-Hill-Book, Hamburg 
E.-W. Meyer, Frohnhausen 
Micromint, Erkrath . . . . 


US 


Ulf Mohwinkel Electronic, Leverkusen 


pandabooks, Berlin . 
pandasoft, Berlin . . . . 
r + r electronic, Heidelberg . 
Softline, Oberkirch 

Tewi Verlag, München . 


Uding Electronics, Menden 
Vobis, Aachen 
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SEN Markendiskette. Die FT zu den Namenlosen! 


Auch bei den Disketten machen sich "NoNames” breit. Was verbirgt sich in den weißen Kartons? Sie können es nicht wissen. Selbst wenn Sie 
einmal mit der Qualität zufrieden waren, was steckt beim nächsten Kauf in der namenlosen Packung? 























2 RZ Vertrauen Sie deshalb einer Markendiskette! 
u: 2 & u Denn an der Marke erkennen Sie die gleichblei- 
ee B Enno En bende Qualität: MULTILIFE, die klassische Mar- 
Ira PROBE ati _Ee € kendiskette. Jede MULTILIFE-Diskette wird wäh- 
ee und z, ul 5 | iS 20 rend der Produktion über 100 Mal geprüft! 
Par Ey lara 77778 F——$- E er sm Sad 
Geprüft für zweiseitige 3er #$ +, 
Benutzung durch #3 BE u EEE u Alle MULTILIFE-Disketten mit Mit- 
Wenden bei einseiti- 1: a = ug tellochverstärkung. Für noch 
gen Laufwerken längere Lebensdauer auch 
FAN bei häufigem Disketten- 
COMMODORE 1541). aa Et 
als irrt GT 
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Hiermit bestelle ich: Nr 


DO) 50 Stück MULTILIFE-Disketten ( 5% Nachlaß) mE ZT AHA FARO 
D 100 Stück MULTILIFE-Disketten (10% Nachlaß) : Een ee ee v 3 -F AS. 
zum Abruf in einem Jahr beginnend mit dem heutigen Datum El Ki Ne ke A re IO% a 
(Mindestabruf 10 Stück). Be: ılTgejt box =2.-. Reinidı gssetfürz in. 39 = 
Als ersten Abruf bitte ich um Lieferung von: RE : ACHTUNG Gmfahnehmer! h 
x10Stük_ __ (Art-N.)Ja____=_ DM ! ER Bi tuck 


PIE POT REeN a Be a N N a es re 
x10Stük_ ____(Art.-Nr)a =_ DM eben Bei10D Stück Jahresahnahmg | 7 ninERB N 
x10Stük_____(Art-NJa__ = ___ DM 00 220,0 fach nebenstehenden Calf EN N il yoga jen: 
Zwischensumme DM ee | zur. Yersan alenat Aact ER 
Pazugign nalen DM 1 R: Br : Is au a: Bach ki an ich a j 7 
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Endsumme DM 


Meine Anschrift: 
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Name/Vornan Arme 


Strafle u PLZ) Ort 


Datum/Unterschrift 








